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DESIGN OVERVIEW OF THE EXOS DRIVER/ACP 
FOR RSX-11M SYSTEMS 


by 


Dipu Bose 


l. I/O PHILOSOPHY OF RSX-11M 


Memory constraints and compatability between different versions of 
RSX-11M dominated the design philosophy and the strategy used in 
creating the RSX-11M Operating System. To meet its performance and 
space goals, the RSX-11M I/O system attempts to centralize the 

common functions,thus eliminating the inclusion of repeatative code in 
each and every driver in the system. To achieve this, tabular data 
structures are designed in the system, which are used to drive the 
centralized routines. The effect is to reduce substantially the size 
of individual I/O drivers. 


2. THE STRUCTURE OF THE I/O DRIVER 


The next few sections describe the I/O driver structure of RSX-11M. 
Refer to the "Guide to writing an I/O driver" Manual for more 
detailed and thorough treatment. 


The Executive processes I/O requests using the following : 
- Ancillary Control Processor (ACP) 
- A collection of Executive components consisting of : 


a. QIO directive processing 
b. I/O related subroutines 
c. The I/O drivers 


el An ACP is responsible for maintaining the structures and 
integrity of the device (or a collection of devices) related 
data structures. It is an asynchronous privileged task which 
implements a protocol (or set of services) for a class of a 
device. It functions as an extension of the Executive and 
frequently operates with Executive privilege. Since an ACP is 
a task, it has all the attributes of a task together with the 
ability to receive I/O packets from other tasks, as a process. 
The latter attribute permits it to act as an I/O handler, which 
can compete with user tasks for system resources more equitably 
than an I/O driver could. This is because an I/O driver has no 
task identity of its own. Also unlike the I/O driver, an ACP 
can perform I/O to other devices during the processing of an 
I/O request. 


2.2 The QIO directive is the lowest level of task I/O. Any task 
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2.3 


2.4 


3. 


can issue a QIO directive which allows direct control over 
devices that are connected to a system and have an I/0 
driver. The QIO directive forces all I/O requests from user 
tasks to go through the Executive. The Executive works to 
prevent tasks from destructively interfering with each other 
and with the Executive itself. 


An I/O driver is an asynchronous process (not a task) that 
calls and is called by the Executive to serivce an external 
I/O device or devices. The role of an I/O driver in the 
RSX-11M I/O structure is specific and limited. A driver 
performs the following functions : 


1 Receives and serivces interrupts from its I/O devices. 
-2. Initiates I/O operations when requested to do so by the 
Executive. 

3. Cancels in-progress I/O operations. 
-4 Performs other (device-specific) functions upon power 
failures and device time-out. 


As an integral part of the Executive, a driver possesses its 
own context, allows or disallows interrupts, and synchronizes 
its access to shared data bases with that of other Executive 
processes. A driver can handle several device controllers, 
all operating in parallel. 


Every I/O driver in the RSX-11M system has the following entry 
points: 


ae Device interrupts 
b. I/O initiator 

Cs Device time-out 
d. Cancel I/O 

e. Power failure 


Apart from the first entry point, which is entered by hardware 
device interrupts, all are entered by calls from the Executive. 


I/O Related Subroutines 


RSX-11M provides a set of centralized subroutines which operate 
on the centralized data bases and give the user a significant 
amount of flexibility while maintaining the integrity and 
uniformity in coding. Also a significant amount of code 
repeatation can be avoided with their proficient use. 


I/O RELATED DATA STRUCTURE 


An I/O driver interacts with the following data structures : 


ae 


Device Control Block (DCB) 
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b. 
Ce 
d. 
e. 
f. 
e. 


Unit Control Block (UCB) 
Status Control Block (SCB) 
The I/O Packet 

The I/O Queue 

The Fork List 

Device Interrupt Vectors 


The first four of these data structures are especially important to 
the driver because it is by means of these data structures that all 
I/O operations are effected. They also serve as communication and 
co-ordination vehicles between the Executive and individual drivers. 
Entry to a driver following a device interrupt is accomplished through 
the appropriate hardware device interrupt vector/s. 


Be 


The Device Control Block (DCB) 


At least one DCB exists for each type of device appearing in 
a system. The function of the DCB is to describe the static 
characteristics of both the device controller and the units 
attached to the controller. All the DCB's in a system forms 
a forward link list, with the last DCB having a Link to 
ZeCrO.™ 


The Unit Control Block (UCB) 


One UCB exists for each device unit attached to a system. 
Much of the information in the UCB is static, though a few 
dynamic parameters exist. From the UCB, however, it is 
possible to access most of the other structures in the I/O 
data base. Few of its contents are used and modified by both 
Executive and the driver. 


The Status Control Block (SCB) 


One SCB exists for each device controller in the system. This 
is true even if the controller handles more than one device 
unit. Most of the information in the SCB is dynamic. Both 

the Executive and the driver use the SCB. 


The I/O Packet 


The I/O Packet is built dynamically during the QIO directive 
processing and is subsequently delivered to the driver by 

a call to the system Executive. No static fields exist with 
respect to a driver and is generated mostly from the 
information passed in the directive parameter block. 


I/O Queue 


The QIO directive after successfully generating an I/O 

packet inserts it into a device-specefic, priority oriented 
ordered list of packets called I/O Queue. Each I/O queue 
listhead is located in the SCB to which the I/O request apply. 
When a device needs work, it requests the Executive to dequeue 
the next I/O packet and delivers it to the requesting driver. 
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Normally the driver does not directly manipulate the I/O queue. 
f. Fork List 


Fork List is a mechanism by which RSX-11M splits off a process 
that requires access to shared data bases, or that require 

more CPU time to process an interrupt. A process that calls 
SFORK( an executive routine ), requests the Executive to 
transform it into a ‘fork process' and place it in a fork list. 
A call to $FORK saves a "snapshot" of the process (R4,R5 and 
PC) in a fork block. This fork block is queued on the fork 
list in first-in-first-out order. 


” 


Be The Device Interrupt Vector 


The device interrupt vector consists of two consecutive words 
giving the address of the interrupt service routine and the 
priority at which it is to run. The low four bits of the second 
word of the interrupt vector must contain the number of the 
controller that interrupts through this vector. This 
requirement enables a driver to service several controllers 
with a few code changes. 


4. EXECUTIVE SERVICES : 


The Executive provides services related to I/O drivers that can be 
categorized as pre- and post- driver initiation. The pre initiation 
services are those performed by the Executive during its processing 
of a QIO directive. Its goal is to extract from the QIO directive 

all I/O support functions not directly related to the actual issuance 
of a function request to a device. 


The post initiation services are made available to the driver after it 
has been given control, either by the Executive or as the result of an 
interrupt. They are available as needed by means of Executive calls. 


De ASYNCHRONOUS SYSTEM TRAPS (AST) 


The primary purpose of an AST is to inform the task that a certain 
event has occurred. For example, the completion of an I/O operation. 

As soon as the task has serviced the event, it can return to the 
interrupted code. When an AST occurs, the Executive pushes the task's 
Wait For Mask Word, the DSW, the PSW and the PC into the task's stack. 
This information saves the state of the task so that the AST service 
routine has access to all the available Executive services. Most of the 
Executive directive calls has an optional AST entry point, such that 
AST occurs upon a certain condition, e.g. an I/O completion, so that 
some user specified operation could now be done at that entry point. 
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6. 


FLOW OF AN I/O REQUEST 


The flow of an I/O request, issued by the user by issuing a QIO 
directive, is as follows : 


6.1 


6.2 


6.3 


6.4 


Task issues QIO directive. 


QIO processing. 


6.2.1 First level validity checks. 
The QIO directive processor validates the Logical Unit 
Number (LUN) and UCB pointer. 


6.2.2 Redirect Algorithm . 
Because the Unit Control Block (UCB) may have been 
dynamically redirected by an MCR redirect command, the 
QIO directive traces the redirect linkage until the 
target UCB is found. 


6.2.3 Additional Validity Checks. 


The Event Flag Number (EFN) and the address of the I/O 
status block (IOSB) are validated. The event flag is 
reset and the I/O status block is cleared. 


Executive obtains storage for and creates an I/O packet. 


The QIO directive processor now requires an 18-word block of 
dynamic storage for use as an I/O packet. It inserts into the 
packet, data items that are used subsequently by both the 
Executive and the driver in fulfilling the I/O request. Most 
items originate in the requesting task's directive parameter 
block (DPB). 


Executive validates the function requested. 


The function is one of the four possible types : 


- Control 
- No-op 

« ACP 

« Transfer 


Control functions are queued to the driver. If the function is 
IO.KIL, the driver is called at its cancel I/O entry point. The 
IO.KIL request is then completed sucessfully. 


No-op functions do not result in data transfers. The Executive 
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6.5 


6.6 


"performs" them without calling the driver. No-ops return a 
status of IS.SUC in the I/O status block. 


ACP functions are those functions which are to be processed by 
the ACP. The Executive queues the I/O packet to the ACP and 
issues a run request of the ACP, if it is stopped. 


Transfer functions are address checked and queued to the 
proper driver. Then the driver is called at its initiator entry 
point. 


Driver Processing 


6.5.1 Request work 


To obtain work, the driver calls the S$GIPKT routine. 
SGTPKT either provides work, if it exists, or informs 
the driver that no work is available, or that the SCB 
is busy. If no work exists, the driver returns to its 
caller. If work is available, $GTPKT sets the device 
controller and unit to "busy", dequeues an I/O request 
packet and returns to the driver. 


If UC.QUE is set, the packet is passed to the driver 
at its initiator entry point. The driver is entered 

at its entry point with some registers set to specific 
values like address of I/O packet, address of the UCB 
and etc. If the request is to be processed by an ACP, 
the packet is queued to the ACP. 


6.5.2 Issue I/O 


From the available data structures, the driver 
initiates the required I/O operation and returns to its 
caller. A subsequent interrupt may inform the driver 
that the initiated function is complete, assuming the 
device is interrupt driven. 


Interrupt Processing. 


When a previously issued I/O operation interrupts the driver, 
the interrupt causes a direct entry into the driver, which 
processes the interrupt according to the programming protocol. 
According to the protocol, the driver may process the interrupt 
at priority 7, at the priority of the interrupting device, or 
at fork level. If the processing of the I/O request associated 
with the interrupt is still incomplete, the driver initiates 
further I/O to the device. When the processing of an I/O 
request is complete, the driver calls $IODON. 


I/O Done Processing 
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$IODON removes the "busy" status from the device unit and 
controller, queues an AST, if required, and determines if a 
checkpoint request pending for the issuing task can now be 
effected. The IOSB and event flag, if specified, are updated 
and $IODON returns to the driver. The driver branches to its 
initiator entry point and looks for more work. This procedure 
is followed until the driver finds the queue empty, whereupon 
the driver returns to its caller. 


Eventually, the processor is granted to another ready-to-run 
task that issues a QIO directive, starting the I/O flow anew. 


8. DESIGN PHILOSOPHY FOR THE EXOS DRIVER 


The EXOS front-end Ethernet Controller board is modelled as a 
controller of a single devive-unit which supports multiple paths of 
communication with the network and the board itself. These paths 
are called channels and are designated by a channel descriptor 
number, called the channel number. The channels grossly correspond 
to a socket ( an end-point in the network communication ) or a 

path for obtaining services from the front-end ( e.g. initializing 
and configuring the board , downloading protocol sOECWAaLE to the 
board's memory, etc ). 


The user program should create a channel either for administrative 
operations or to obtain services from the network. In either case the 
user should use the channel number, which the driver software returns to 
him in response to an open channel call, for subsequent operations. The 
channel provides the user task a protection mechanism from destructively 
interfering with each others path of communication. For example, a 
socket created by one task cannot be accessed by another task. 


One of the major decisions in the design of the EXOS driver was to 
attach an Auxilliary Control Processor with the driver. A substantial 
amount of drivers work is done by the ACP. In fact, ACP is the central 
routine which does all the work and the driver just acts as an traffic 
controller, routing all the requests from the users to the ACP. The 
reason behind taking this decision are: 


. to overcome the 16 KB of driver space restriction: As the 
driver accesses the 8 KB of the I/O page and 20 KB of the 
system executive space ( executive routines and data ), it 
has only 16 KB left to itself. 


- to minimise processing time at the interrupt level at the 
drivers interrupt entry point by waking up the ACP from 
this point and letting it do the work at task level. 


.» to exploit the task feature of the ACP, which makes it 
overlayable and also let it compete for other system 
resources equitaibly with other tasks in the system. It 
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9.1 


9.2 


9.3 


allows ACP to get services fron other devices as well (via 
QIO'S). 


- to have overall design simplicity for easy maintainance and 
also portability to other variations of RSX-11M operating 
systems Like RSX-11M-PLUS and Micro RSX. 


IMPLEMENTATION DETAILS 


General Information 


The driver's role in the EXOS I/O handler package is very 

small and limited only to that of an I/O request traffic 
controller. ACP is the major module in this package which 

does most of the work. The management and processing of the 
EXOS-HOST Message queue ( refer to chapter 4 of EXOS 203 

Manual ) is done by the ACP. This message queue forms a 

part of the ACP's local data area which is physically 

shared ( better say accessed ) by the EXOS front-end. All 
transactions with the EXOS is done via the ACP. Interrupts from 
the board are received by the driver at its interrupt entry 
point. The driver passess on this information to the ACP by just 
waking it up. 


I/O requests received by the driver are queued to the ACP by 
the driver after a minimal processing. The driver address 
checks the user buffers ( if specified ) and relocates their 
virtual addresses in terms of kernel APR 6. It also rearranges 
the function dependent parameters in the I/O packet and then 
queues the packet to the ACP requesting for work. 


Driver Data Structures: 


A Device Control block (DCB), an Unit Control Block (UCB) 
and a Status Control Block were defined for the EXOS device 
driver. The logical name for the EXOS device was given 'ZE' 
and is defined in the DCB. Most of the functions are defined 
as Control functions so that the driver receives the request 
first and then queues the same request to the ACP after some 
processing. The IO.ATT & IO.DET are made No-op functions. 


The UC.QUE bit is set in the U.CTL byte of the UCB. This tells 
the QIO executive routine to call the Driver at its initiator 
entry point and pass the I/O packet without queueing it in the 
driver's I/O queue. Also the UC.KIL bit is set so that the 
driver is called on a cancel I/O request, even if the unit is 
not busy. 


ACP Data Structure 
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9.4 


9.5 


9.6 


There is a special data structure in the ACP, called Channel 
Descriptor, which keeps all channel related information. The 
structure of the Channel descriptor is 


struct channel { /* channel control block */ 
Uchar ch type; /* type of the Channel */ 
Uchar ch flag; /* protection flags */ 
Ushort ch_tcb$; /* owner task's TCB address */ 
Ushort rundn cnt} /* I/O rundown count on this channel */ 
union { 
Ushort ch_soid; /* socket id returned by EXOS */ 
struct { /* EXOS memory pointer %/ 


Ushort base} 
Ushort off; 


} ch_des[ MAXCHANNEL ]; 


This control block keeps sufficient information for channel 
managements. 


The Message Queue forms a major data structure of the ACP 
task. The format and fields of the Message Queue are defined 
in the EXOS 203 Manual. 


QIO Processing 


Once the Executive receives a QIO request, it does a first 

level of validity check as described in section 6.2. It then 
creates an I/O packet and fills up the appropriate fields from 
the Directive Parameter Block specified by the user. Since all 
the I/O functions are control functions and the UC.QUE bit is 
set, the executive calls the driver at its initiator entry point 
and passes the address of I/O packet to it. This prevents user 
context switching so that the driver can execute and relocate 
the user specified buffers while the user context is intact. 


Driver Processing 


The Driver, upon receiving an I/O packet, does some processing. 
It first address checks the user buffer and then relocates 

the buffer in terms of kernel APR 6. It places the relocated 
address in the I/O packet itself by slightly rearranging the 
parameters. After this it simply queues the packet to the ACP. 
Queueing of I/O packet is not priority oriented but in first- 
in-first-out order. So the ACP receives the request in the 

same order as they have been issued by the user. 


Interrupt Processing 
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The processing time at the interrupt level is minimised by 
letting the ACP do the work. Whenever the driver is entered 
at its interrupt entry point it immediately goes to the fork 
level and then unstops the ACP and returns. No processing 

of the EXOS Reply Message Queue is done by the driver. The 
ACP systematically processes the Reply Message Queue whenever 
it is unstopped. 


ACP Processing 


The ACP iterates an eternal loop. Wnen there is no work 

pending for the ACP it stops itself and goes to sleep. 

It is woken up by the driver either from the initiator 

routine, interrrupt service routine or cancel I/O routine. 

It first dequeues a packet from its external queue and if it 

is successful it calls the routines that process the request by 
filling up the appropriate fields in the appropriate message 
area and then passing the control of the message queue to the 
EXOS. The EXOS, to give a reply to a request, willl interrupt 
the host and the ACP get control as it is unstopped by the 
driver and calls the routines that process the replies. The 
actions taken in the request and reply processing are dependent 
on the function codes in the I/O packet (for requests) and the 
request codes of the message area (for the replies). 


The detailed descriptions of the ACP processing is given in the 
additional design/maintainance document for the ACP/driver. 
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DESIGN/MAINTAINANCE DOCUMENTATION FOR THE 
EXOS DRIVER/ACP FOR THE 
RSX-11M/RSX-11M-PLUS 
O.S. 


by 
Asim K. Mehta 
1. INTRODUCTION: 


The preliminary design overview of the driver/ACP is given in the 
DESIGN OVERVIEW OF THE EXOS DRIVEV/ACP document by Dipu Bose. That document 
describes the basic I/O philosophy of the RSX-11M systems, I/O related data 
structures, I/O related system protocols to be followed by the device drivers, 
etc, and the reasons for the important decesions like having the ACP as a 
separate entity which does all the I/O related operations and that the driver is 
just a traffic controller for the I/O requests for the EXOS board, etc. 

This document will describe the implementation and minor design issues 
related to the ACP only. A separate document describes the changes made to the 
RSX-11M driver/ACP to make it work on the RSX-1LIM-PLUS system. Another document 
describes the design issues for the driver on the UNIBUS machine. 


2. THE MAIN ACP FLOW: 


The file acproot.c contains the main ACP routine " main()". First the 
local initialization of some data structures is done in the routine “init()". 
Then the TCB address of the ACP is stored in the ZE UCB in the C — callable 
macro routine "acpucb()". For the UNIBUS machine this routine also fetches 
the physical 22-bit address of the start of the local pool into a local data 
structure. Then unibus initialization is done for the UNIBUS machines. (refer to 
the unibus doc for more info on this). After these initialization routines, the 
main loop of the acp code starts. First a packet is dequeued from the acp's 
external queue and if no packet is available or if no work is pending then the 
ACP goes off to sleep (all this is done in the C - callable macro routine 
"dqpkt()"). On waking up the ACP first looks for a packet and if none is 
available it sees if any work is pending. If so then it returns and does the 
required processing of the pending work or the processing of the packet, if one 
was dequeued. 

Unless the main do-while loop gets a configuration request for the board 
and the board gets successfully initialized, the routine "drive()" is not 
entered. When the board gets ready, this routine is entered and it goes into 
an eternal loop constantly looking for work. If none is found then it stops 
(sleeps). On getting work it first checks if the request is for board 
initialization or not. If so then it serves that request and if not then it puts 
the I/O packet into an internal queue which is serviced later on in the routine 
"request()". Then it enters the routine "answer()" where it first checks if 
any replies have come from the board or not and if so then it serves those 
replies in the routine "reply()". After the reply processing is over it goes 
and serves the requests if there are any free slots available in the message 
queue through which the ACP will communicate with the board. The routine 
"request()" is called where the I/O packets are served until they get exhausted 
or they can no-longer be served due to lack of some resources. In this case 
they are again put in the internal queue so that in the next iteration of the 
eternal loop it might get a chance to be served if that resource has been freed. 
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3. THE REQUEST PROCESSING: 


The requests are of two major kinds. One is the kind which does not 
require any participation from the board in honouring the request and the other 
kind is which requires it. The former are serviced immediately by the main 
ACP routines - " main()" and "drive()". The latter kinds of requests are put 
into an internal queue which is serviced by the routine "request()" whenever a 
slot in the message area is available for communicating with the board. 

Inside the routine "request()", first, the I/O packet is dequeued from 
the internal queue. Then the control is passed to the appropriate routine 
according to the function code. The types of requests here are the kinds which 
just require the board's local statistics and perform operations local to the 
board and are not involved with the network ("admin()"), the kinds which require 
the access opearations for the socket ("access()"), the kinds that indulge in 
data transfer operations to the network ("transfer()"), and the kinds involved 
in the socket control operations ("excontrol()"). 

The kinds of requests that are served directly by the main ACP routines 
are the ones that involve opening/closing of sockets ("opench()" & "closech()"), 
board setup and initialization procedures ("exsetup()"), the seek operation on 
the board's memory, retrieval of the configuration message, unselect request 
("fin pen()") and preparing the urgent requests. 

The requests that require the participation of the board are first 
transfered to the board via the message queue and the I/O packet address is put 
in a pending I/O list which is to be processed by the reply processing. The 
requests not requiring the participation of the board are finished immediately, 
after they are serviced, by calling the routine "ackuser()" which calls $IOFIN. 

For the requests put in the pending list, the I/O rundown count for that 
channel is incremented showing it as busy. 


4. THE REPLY PROCESSING: 


The routine "answer()" is called whenever the acp is woken up. Here the 
message area (rmsg area) is scanned to see if any slot has a reply for the host 
from the board. If it does then it retrieves the I/O packet address from the 
nm userid field of the message area and calls the routine “reply()" which does 
the actual replying for the board to the user, according to the kind of function 
code, of cource. 

The reply routine just fills in the return status nm reply into the 
I/O status block and then finishes the I/O by calling the routine "ackuser()". 
This C - callable macro routine calls $IOFIN fot the purpose. The I/O rundown 
count for this channel is decremented indicating an I/O was complete. This is 
done for almost all the kinds of requests (unless otherwise dictated by the 
request! - as in the case of the reply for the select request in which if the 
socket is not yet ready the packet is put back into the pending list and it is 
considered that the I/O has not yet finished since one more reply is expected 
from the board to indicate that the socket is ready for read/write and it is 
then that the I/O is considered finished and the I/O rundown count is 
decremented). 


5. DESCRIPTION OF THE DIFFERENT MECHANISMS: 


5.1 OPENING/CLOSING OF A CHANNEL: 


These operations are essential for the user to request if any kind of 
communication with the board (involving the network or not) is desired. There 
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exists an array of 40 channel descriptors which means 40 concurrent channels or 
paths for communicating with the board can be opened simultaneously. These 
descriptors are similar to file descriptors and contain information like the 
type of the channel: {can be administrative or can correspond to a socket for 
communicating with the network or can be free — not assigned}; they contain 
flags indicating the status of the channel at run-time: {opened in read/write 
mode, whether privileged or not, whether marked for close or not}; They contain 
the owner of this channel: {the TCB address of the issuing task - used as the 
ownership ID of the user}; the rundown count: {contains the number of concurrent 
I/O's active on the channel (mechanism described later)}3 and it contains the 
socket ID: {returned by the board if opened for networking operations or it 
may contain the memory locator of the EXOS memory if the channel is opened 
for administrative operations}. 

These operations are immediate ones. They are serviced immediatly 
in the main ACP loops and the result is returned to the user. 


5.1.1 OPENING A CHANNEL: 


The routine "opench()" in file opench.c is called for the purpose of 
opening a channel. The channel which is marked CH FREE is searched sequentially 
and the channel number (ch no) of the first available free channel is returned 
to the user. The privilege of the user is checked in the routine "getpriv()" by 
checking the task and the terminal privilege of the user. If both are privileged 
then the flag CH PRIV is set in the ch flag field of the ch des[ch_no]. If the 
channel is requested to be opened in the write mode, the flag CH WRITE is set. 


5.1.2 CLOSING A CHANNEL: 


The routine "closech()" in the file opench.c is called for the purpose. 
First it is checked if the channel number specified is in range (<=40) and if 
the ID (TCB address) is correct. If so then it checks whether the rundown count 
is not zero. If it isn't zero that means some I/O is already pending on the 
channel and hence the channel cannot be really closed. This is so because if, 
for example, a read is pending and the socket is closed and the user task exits, 
then if some other task is shceduled to reside in the same memory area as the 
task which had the read pending, then the DMA from the board may still be on and 
that may curropt the new task in the memory and cause problems. Hence, 
the task is blocked until the reply for that read comes. That's the main reason 
for having this rundown count mechanism. If some I/O is pending then it is 
marked for close - CH MCLOSE and the I/O packet for the close request is put in 
another queue called the mrkcls (marked for close) queue. This means no further 
requests will be entertained on this channel and as soon as the replies for the 
pending requests arrive the channel is closed whenever the rundown count becomes 
zero. While the channel is in the process of being closed, all the fields are 
reset, the channel is marked CH FREE. If there are any replies pending on this 
channel number that are requests to the board for closing the socket, then these 
are no longer useful as the socket has already been closed and all the I/O is 
finished on this channel. This packet is dequeued from the mrkcls queue and that 
I/O is finished by calling "ackuser()" routine. There may be more than one 
request for closing the channel (in some cases where two SOCLOSEs are issued for 
the same channel!) and so all are finished. 


5.2 I/O RUNDOWN: 


The file cancel.c contains the routine "io rundown()" which finishes 
all the pending and outstanding I/O's when the board has to be re-~initialized. 


Nov 9 17:40 1985 acp.design.doc Page 4 


All the open channels excepting the one opened for re-initialization are closed. 
The internal queue contains the requests for all the outstanding I/O's, the 
pending I/O's are in the io _pend queue and the marked for close packets are in 
the mrkcls queue. These queues are emptied off by finishing all the I/O's in 
them by calling the routine "ackuser()" for all the I/O's except the IO KIL and 
IO TEL packets which are not the regular I/O packets buts are the ones allocated 
in the ZE and the ZT drivers respectively for the purpose of IO KIL and TELNET. 
These packets are deallocated back to the system pool by calling the C - 
callable macro routine "dealoc b()". 


NOTE: Now that the pseudo function code TS HNG has been added for the purpose 
of hanging up a telnet connection when a bye is given, a hangup packet 
might be caught up in the internal queue when the request for re- 
initialization comes. Hence this packet must also be deallocated back 
into the system pool. (this is not being done now) 


Also, if the local pool is allocated by the requests (in the case of 
UNIBUS machines), then it is deallocated. 


5.3 IOKILL MECHANISM: 


This is the mechanism to finish all the I/O's of a particular task 
either when it is aborted or when it itself issues a QIO IO.KIL to finish off 
all the I/O's before exiting. After this the control comes to the cancel entry 
point of the ZE driver. Here a dummy IO KIL packet is allocated from the system 
pool and sent to the ACP via a $EXRQP. 

Here, in the ACP, when the IO KIL request is received, the control comes 
to the routine "iokill()". It first checks if any channel is open for that task 
(done in routine "srchn()"). If so then it issues an SOCLOSE request to the 
board, increments the rundown count and returns. When the reply for this SOCLOSE 
arrives, the IO KIL packet is put into the internal queue so that again this 
routine is called in the next request cycle and any other open socket for this 
task is also closed in a simialr way. The rundown count is decremented and the 
channel is closed (if the rundown count is zero). When control again comes to 
this routine and if no open channel is found, then all the packets belonging to 
this task are finished off in the routine "remque()" and the current IO KIL 
packet is deallocated. 


5.4 SELECT AND UNSELECT PROCESSING: 


Select is a mechanism for the user tasks to know whether a socket is 
ready for read or write so that he can issue a read or a write which would be 
sure to succeed and take lesser time. The board immediately gives a reply and 
indicates in the reply field whether the socket is ready or not. If it is not 
ready then the I/O request packet is put into the pending list and the rundown 
count is not decremented (described above). If it is ready then the user is 
informed of this by calling "ackuser()". If the socket is not ready then the 
board is expected to give a reply some time later indicating a selected socket. 
This reply is supposed to be unsolicited and the request code is not SOSELECT 
but SOSELWAKEUP. The user may not want to wait for that long. Or even if he 
waits the I/O rundown count remains non-zero and the task cannot be aborted. In 
that case the user can issue a QIO IO ACS!SA USL (UNSELECT) request which 
informs the ACP to finish off the pending select request regardless of the 
socket being ready or not. 

This request (SOSELECT) is unlike other requests in the sense that all 
the other requests use the nm_userid field for filling the io pkt address to 
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recognize the owner of that request but this request uses the nm proc field 
of the structure Sock select so this has to be handled differently by the reply 
routines. The nm proc field's MSB has to be a zero for correct operation. This 
means that the I/O packet address higher than 0x8000 will cause all sorts of 
problems in the board code. Since the I/O packet address is always on an even 
boundary, it is shifted one bit to the right and then stored in the nm proc 
field. After it is retrieved from the reply message, it is again shifted one bit 
to the left and then compared to the actual address in the pending list. This 
causes the MSB to remain reset. The mechanism used for the purpose of 
fulfilling the protocol of select and unselect is as follows: 

When the request for select is made the field i_prm5 of the io _pkt 
is used as a status word which is initially set to NOREPLY which indicates that 
no reply has yet come. When the first reply comes it is set to ~NOREPLY which 
indicates a reply has indeed come. This is done because if the first reply has 
not yet come and if a request for unselect comes then the routine "fin_pen()" 
is called with the parameter SA _USL and in this routine this bit is tested for 
the first reply and if it hasn't yet come then the status word is set as 
UNSELECT(ed) and nothing else is done. Now when the first reply comes it is 
tested for UNSELECT and if it is true then a normal reply is given back to the 
user and the packet is not put in the pending list as would be done after the 
first reply. This would unselect the select request. Now, if the first reply has 
come when "fin pen()" is called, then that packet is finished off by the 
"“ackuser()" routine and also the AST field of the I/O packet is reset so that 
control does not come to the ast service routine for the select request in the 
user Task after a request has been given for unselecting the socket. 


5.5 OUT OF BAND PROCESSING: 


The out of band mechanism is one in which a user can either send 
out-of-band packets to the remote systems or receive them from the remote 
systems. The sending of out-of-band packets is a very straight forward mechanism 
but receiving the packets can become a pain if none is received and the user 
wants to exit from his task. An I/O will remain pending and the task will 
remain marked for abort and will hang. When a socket is closed, and if an out-of 
~band request is pending, which will be a very common case because while the 
out of band request is pending and if the user task exits or if he aborts the 
task, then the control comes to the "iokill()" routine which issues an SOCLOSE 
to the board for that socket. This will still not force a reply for the OOB 
request because there are no OOB packets available. Hence, when the reply for 
the SOCLOSE comes the routine "fin pen()", with the parameter as SA ROO i.e. 
remove out of band request, is called. This routine removes the OOB packet 
from the pending list and finishes the I/O on it by calling "ackuser()" and it 
also decrements the rundown count. This will cause the channel to close which 
in turn will cause the task to abort peacefully. 


5.6 SETUP PROCESS: 


The routine "exsetup()" is called when the request is made to the 
ACP for initializing/configuring the board - IO EXC|EX INI. This routine is 
called with a parameter called the setup mode. If it is 0x80 then infinite 
timeout is specified for debugging purposes with the ON-BOARD debugger. 

In the setup process, the important data structure is the configuration 
message which contains information like the interrupt vectot address, the start 
of the message area, the types of longwords used by the host (byte swapped or 
not), status bytes, the reply status bytes, etc. The start physical address of 
this configuration message is passed to the board software by writing it byte by 
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byte into the PORTB and reading the status from the PORTA. 

First the host message area is setup in a way specified in the EXOS 203 
manual. The offsets in the message area are calculated by finding the 
differences between the physcal addresses (which are calculated by the routine 
"reloc()"). The field in the configuraiton message for the start of the physical 
address is a longword and is an 18-bit value for the UNIBUS and a 22-bit value 
for the Q-BUS. After preparing the configuration message, the board is reset by 
writing a 0 into PORTA. After a 2 second delay the PORTB is read to find out 
whether the board has been initialized or not. If mode is 0x80 then infinite 
timeout is given for the board to get reset else only 2 sconds are given for 
resetting the board. The value of the PORTB is stored and later initialized to 
the im _dummy2 field of the configuration message. The netload program uses this 
field to indicate whether the loopback test failed or not (that is if the 
Xceiver cable is in or not). Then the start physical address of the 
configuration message is passed to the board by writing it into the PORTB. This 
address is calculated by the "reloc()" routine for the Q-BUS software but this 
22-bit physical address is loaded into the UMR address and the 18-bit address 
is passed as the physical start address of the configuration message. (described 
in detail in the UNIBUS doc) 

After the board is reset and it gets the configuraiton message, it 
prepares its local copy of the configuration message and sets up its message 
queues. After this the board is ready to take on any requests from the host and 
the host is prepared to take any unsolicited replies or solicited ones. 


6. RESOURCE USAGE BY THE ACP/DRIVER: 


This section describes some of the important system resource usage by 
the driver and the ACP. 


6.1 MEMORY: 


The driver size for the Q-BUS systems is only about 1KB. But for the 
UNIBUS systems it is the full 8KW as 7KW out of the 8KW are taken up by the 
local pool for intermediate bufferring. The ACP's size is almost 6KW for the 
UNIBUS systems and about 5.5KW for the Q-BUS systems. 


6.2 SYSTEM POOL USAGE: 


The driver uses the system pool only when the control comes to the 
cancel entry point. Here it allocates a packet from the system pool to queue 
to the ACP. It is deallocated in the ACP. 

Depending on the number of requests made to the ACP at one time if the 
network is slow or if the board is slow in responding to the requests then all 
the I/O packets are hung up in the pending list of the ACP and this causes a 
depletion of the system pool. the size of the packet for RSX-11M systems is 
36 bytes and for RSX-11M-PLUS is 40 bytes. Telnet also uses up a lot of system 
pool as described in it's respective document. 

The driver data base is located in the the system pool. There is only 
one DCB, one UCB and one SCB for the RSX-11M systems and an additional CTB and a 
KRB/SCB combination for the RSX-11M-PLUS systems and together they take up about 
110 bytes for the RSX-11M systems and about 140 bytes for the RSX-11M-PLUS 
systems. 


6.3 EVENT FLAGS: 


The event flag number 8 is used by the dealy routine after it marks the 
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time by spaecifying the event flag 8 and then waiting for event flag 8 to set. 
If an AST routine is added in the ACP (some reason knwn only to the person who 
will add it!!) it must not use this event flag or any other used in the QIO 
calls in the ACP. The telnet requests also use the efn 1 for QIO's to the 
ZTDRV for input and output interrupts. 


6.4 CPU TIME: 


The driver hardly uses the CPU time since as soon as it gets a request, 
after a bit of processing, it queues the request to the ACP and returns back to 
the system. The ACP is in a forever loop and it seems as though it might take up 
a lot of CPU time but most of the time it is stopped and waiting for a request 
to come and it would then wake up. If the traffic is more then the CPU time 
usage will be more. 


6.5 LUN'S: 


The ZEACP task does not use any file system so it really does not need 
to specify more LUN's than are assigned to it by default by the task builder. 
But the routines for telnet require to issue QIO's to the the ZTDRV and they 
assign the LUN 7 dynamically to one of the 8 units whichever is required to 
communicate with. 


7. ENHANCEMENTS AND IMPROVEMENTS: 
7.1 CHANGE IN THE DATA BASE: 


There is one change that is suggested to be made in the data base for 
the ZE driver. The CSR address is to be stored in the KRB of the data base and 
it has to be a valid one because the CON task, while putiing the device 
controller online, probes at this address in the I/O page to see if the device 
is actually present or not. Hence, this field will have to be initialized to a 
global symbol which will be initialized during task build time and its value 
will correspond to the actual CSR on the particulare host system which the end 
user will supply during the build time. 

At present the interrupt address is initialized in a similar way. This 
is only required for the RSX-11M-PLUS systems and not for the RSX-11M but since 
the data base is generic for both, the change will affect bothe distributions(?) 


7.2 ADDING MORE CALLS TO THE DRIVER: 


If, in the future, another QIO call is to be added for the driver, then 
it can be done very simply. It's mask will have to be added into the D.MSK field 
of the DCB and a case statement is to be added in the request routine's switch 
statement and the serving routine can be called here. If it requires to give an 
immediate reply to the user then the inform bit should be set and so on. All the 
protocols used by other requests should be followed - if the message slot is not 
used then the action bit is not set and in that case the slot is returned 
unused. Similarly the case statement is to be added in the reply routine for the 
reply processing. 
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THE DESIGN/MAINTAINANCE DOCUMENTATION FOR 
THE RSX-11M/RSX-11M-PLUS 
UNIBUS SOFTWARE 


by 


Asim K. Mehta 


Note: Adequate knowledge about the design of the EXOS driver and ACP for the 
RSX-11M/RSX-11M-PLUS (Q-BUS) systems is required to thoroughly 
understand the design of the UNIBUS software for the same Operating 
systems (it is described in the relevant design/maintainance document). 


1. INTRODUCTION: 


The whole driver/ACP software is written in such a way, that, for the 
respective type of the bus, Q-BUS or UNIBUS, the build procedure will 
conditionally compile and task-build the software to suit the type of the 
system. 

The main difference in the Q-BUS and the UNIBUS software is the use of 
the UNIBUS mapping registers for transfering data to/from the board to the host 
memory. This document will describe in detail how these are allocated, how they 
are used in data transfers, etc. 


2. DESIGN DETAILS: 
2.1 UMR REQUIREMENTS: 


With one UMR, a transfer of a maximum of 4KW of data can take place. The 
ACP requires about 1KB of memory for the message area and this piece of memory 
is shared by both the host and the board. Both of them require to utilize this 
space almost simultaneously and hence this area has to be mapped by one UMR all 
the time. This UMR is allocated during initialization time of the ACP and is 
loaded with the 22-bit physical address of the start of the message area. 

For data transfers from user tasks to the board memory and vice-versa, 
ideally, for each request one UMR (per 4KW) would be assigned for the transfer 
and would be loaded with the physical address of the start of the user buffer. 
For a write request this sounds quite O.K. but if a read is requested then it 
may hang forever thus tieing up the system resources (UMR's) and degrading 
system performance because there are only 32 UMR's available for the whole 
system including for the disc I/O and other peripheral I/O. 

To solve this problem, a fixed local pool of about 14KB is allocated in 
the ZE (EXOS) driver virtual space which uses only less than 1KB of virtual 
memory for its code. This is further subdivided into fixed parts of 1KB each 
so that each can be allocated for a request (which will NOT specify more than 
1KB as the buffer size) and then deallocated when the request is over. If all 
the buffers get allocated then the requesting task would be blocked until a 
buffer is freed when the request is made again for a buffer in the pool. 

For this pool area only two UMR's would be required for as long as the 
ACP is running. The contents of the user buffer would first have to be 
transfered to the allocated buffer for a write request and the board is to be 
informed about the 18-bit physical address corresponding to the start of the 
allocated buffer which is the UMR originally allocated plus the buffer no. times 
the size of the buffer. The buffers starting at the address greater then 4KW 
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from the start of the pool are assigned the second UMR's 18-bit address plus 
their no. times their size. The first UMR is loaded with the 22-bit physical 
start address of the pool area and the next UMR is loaded with the start of the 
pool 22-bit physical address plus 4KW. 

Hence, the total consumption of the UMR's is three for almost all of the 
time. 


2.2 VIRTUAL TO PHYSICAL ADDRESS CALCULATION: 


The virtual address is converted into the 22-bit physical address with 
the use of the system routine $RELOC. This routine is called with the virtual 
address as the input in RO and it returns the relocated address in two 
registers. Rl contains the relocation bias and R2 contains displacement bias in 
the block plus 140000 (PAR6 bias). Actually the relocation bias is the higher 
16-bits of the physical address and the lower 6 bits of the displacement bias 
are the lower 6-bits of the physical address because the relocation bias is to 
be loaded into the PAR6 and the displacement bias contains the the virtaul 
address to be actually addressed. The displacement bias's higher 3 bits are 6 
which select the APR 6 and hence the required physical memory will be addressed. 
But we donot need to address the physical memory but to calculate it and this is 
simply done by manipulating (by shifting and masking) these two registers to get 
the higher 6-bits of the physical address in one word and the lower 16-bits in 
another. The routine "RELOC::" actually does this in the ACP and also the power 
up for RSX-11M and load for RSX-11M-PLUS entry points do the same. 


2.3 LOCAL POOL ALLOCATION: 


The local pool for intermediate bufferring is allocated in the driver 
virtual space beginning exactly after 1KW from the start of the driver code 
area. This is done while the driver is being loaded. The driver is called at its 
power fail entry point while it is being loaded for RSX-11M systems and at the 
loadable driver entry point for the RSX-11M-PLUS systems. Here the driver 
calculates the physical address of the start of the pool area and stores it in 
two words in the UCB - at U.ACP+2 and U.ACP+4 with the lower 16 bits in the 
higher word and the higher 6 bits in the lower word. Now that the start of the 
local pool is in the system pool (UCB), the ACP can easily access it. 


2.4 UMR ASSIGNMENT: 


The three required UMR's are assigned at initialization time of the ACP. 
The routine $ASUMR is called for the purpose and not $STMAP or $STMP1 as these 
calls are for assigning UMR's for the duration of the data transfer and are 
deassigned as soon as the I/O is finished by the Executive and the ACP does not 
keep much of the control of the UMR's. S$ASUMR just assigns the UMR's and it is 
the the ACP's responsibility to deassign them (which is done when the ACP is 
aborted for restaring the network or shutting it down by the call to the routine 
$DEUMR). 

The routine "ass umr()" is called at initialization time by the routine 
"uni_ini()" which actually does this assignment and initialization of the UMR's. 
There exists a 6-word Unibus Mapping Register Assignment Block in the SCB of the 
driver data base. The start address to this block and the no. of UMR's to be 
assigned in one of it's fields is passed as the input to $ASUMR. This routine, 
called at system state (done in Macro routine ".AS.UMR::"), returns the UMR 
address and the 18-bit physical address mapped by this UMR (giving the UMR 
number from the higher 5-bits) in the different fields of the UMR Assignment 
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Block. The no. of UMR's specified will map 4KW of physical memory each, and 
these 4KW of memory mapped by each UMR's will have to be contiguous in the 
physical memory. For this reason, two UMR's are assigned first for the pool area 
and one assigned later for the message area and it's UMR Assignment Block is 
allocated from the system pool. 


2.4 DETAILS OF FORMING THE 18-BIT UNIBUS ADDRESS AND LOADING OF THE UMR'S: 


The UMR Assignment Block contains 6-Words as described in the section 
7.4.2 of the Guide for writing I/O drivers manual for RSX-11M-PLUS. After the 
call to SASUMR, the field M.UMRA is initialized with the address of the UMR 
(in the I/O page). The field M.UMVL is initialized with the lower 16-bits of 
the 18-bit address mapped by the first assignd UMR. The bits 4 and 5 (counting 
from 0,1,... onwards) of the field M.UMVH are initialized with the two higher 
order bits of the 18-bit unibus addresss. The higher 5-bits of the 18-bit unibus 
address determine the number of the UMR that will map the physical memory. This 
UMR is to be loaded with the 22-bit physical address of the buffer the 
peripheral device has to communicate with. To access the next contiguous UMR, 
the UMR number is calculated by fetching the high 5-bits of the 18-bit physical 
address and then adding one to this to get the higher order 5-bits of the new 
18-bit unibus address of which the lower order 13 bits are same as the previous 
UMR. 

The Unibus Mapping Registers are actually a set of 32 two word pairs in 
the I/O page starting at the location called UBMPR. The two words hold the 22- 
bit physical address to be mapped by that particular UMR. The address of the 
UMR is in the field M.UMRA in the UMR Assignment Block and the Lower order 16- 
bits are loaded into the lower word and the higher order 6-bits in the higher 
order word (This is done by simple move instructions). 


2.5 LOADING THE UMR'S: 


The first UMR is loaded with the start physical address of the pool area 
and the next one with the start address plus 4KW. The third UMR is loaded with 
the start physical address of the message area. All the fields in the 
configuration message related to the message area are just offsets relative to 
this start address. Under normal circumstances these UMR initializations would 
remain permanent.But during the time when the board is being setup, the board 
needs to read the configuration message directly from the host memory. This 
requires a UMR assigned and loaded with the start of the configuration message 
for a short duration of time. This is temporarily done in the routine 
“exsetup()" and the UMR is reloaded with the start of the pool area when the 
board has finished reading the cofiguration message and has initialized the 
board and its message queues. 


2.6 DEASSIGNING THE UMR'S: 


At initialization time (in the routine "uni ini()") a system call 
SREX$S is made (from the routine "srex()", which specifies the routine "DE.UMR" 
so that control comes to this macro routine whenever the ACP is aborted or it 
exits. This routine calls the system routine $DEUMR to deallocate all the three 
UMR's with the input as the start of the UMR Assignment Blocks and then exits 
the ACP peacefully. 


2.7 LOCAL POOL MANAGEMENT: 


An image of the local pool (struct pool im in file unidata.-h) is kept 
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in the ACP which holds information about the allocation of the buffers and the 
owners of the allocated buffers. The pool im structure is as follows: 


#define POOL BUFS 14 
struct pool im { 
Ushort state} 
struct iopkt *owner}3 
} pool im[POOL BUFS] = {0}; 


The state field indicates whether the particular buffer is allocated or not. The 
owner field contains the address of the I/O packet which corresponds to the 1/0 
request from the user task. 


2.7.1 POOL ALLOCATION: 


The pool allocation is done (in routine "getpool()") by first finding 
a free buffer and in the process also finding the buffer number from the pool 
image. The I/O packet address, which is passed as the first parameter to this 
routine, is stored in the owner field of the pool image. The 18-bit physical 
address is calculated by adding the buffer size times the number of the buffer 
to the start 18-bit physical address of the start of the local pool. This 18-bit 
start address is calculated during the UMR assignment time after the UMRs are 
assigned from the information present in the UMR Assignment Block and stored in 
a global variable (unilbuf) for the pool management routines to use. If the 
buffer number turns out to be greater than 8, then the 18-bit address of the 
next 4KW of the local pool is taken which is stored in another global variable 
(uni2buf). These variables are long words. 


2.7.2 DATA TRANFER TO/FROM USER/POOL ADDRESS SPACE: 


The second parameter to the "getpool()" routine indicates whether the 
requested buffer is for a read or a write request. If it is for a read request 
then the parameter is 0 and 1 if it is a write request. For a write request, the 
routine copies the contents of the user's buffer into the buffer in the local 
pool allocated for the purpose. For this copying, the Macro routine "acopy()" is 
called which calls the system routine $BLXIO to do the transfer of the data from 
the user's area to the driver's area where the local pool is situated. This 
routine need the relocated addresses of the source and the destination buffers. 
The relocated address for the user's buffer is already present in the I/O packet 
but the relocated address of the pool area is calculated at initialization time 
by the Macro routine "REL.POOL::" and stored in global variables rellbuf and 
rel2buf for the lst and 2nd 4KW of the local pool respectively. 


2.7.3 POOL DEALLOCATION: 


The routine to free the buffer, when the request is over and the reply 
has arrived, is "freepool()". The first parameter is the I/O packet address for 
which the request was made and the second one indicates whether the request was 
for read or write (0 or a 1 resp.). The pool image is searched for an entry 
corresponding to the I/O packet address passed as the lst parameter and if a 
match is found then that entry's status field is initialized as DEALLOCTED. If 
the request had been for a read then the data from the pool is transfered to the 
user's area by the same routine "acopy()". For a write request nothing is done. 


There are requests that require both read/write kind of interaction with 
the board like the requests for ARP, ROUTE etc. The "getpool()" and the 
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"freepool()" routines are both called with the second parameter as 1 so that the 
user's read/write requests are both honoured. 


3. CHANGES IN THE XOSLIB TO PASS ONLY 1KB OF DATA TO THE ACP FOR UNIBUS M/C's: 


The routine which finally does the QIO to the board - "libemt()" - is 
modified for the purpose. A global integer called unibus is initialized to 0 
at compile time and this indicates a Q-BUS machine. If it is 0 then Libemt 
does not check the buffer size and directly passes the buffer and the buffer 
size to the board (ACP). But if it is set to 1, then libemt breaks up the buffer 
into 1KB blocks and issues QIO's in a sequence with each having no more than 1KB 
of data to be transfered. The value of unibus is zapped to 1 for UNIBUS M/C's. 


4. LIMITATIONS: 
4.1 SPEED: 


The main limitation with respect to the Q-BUS driver/ACP is the speed 
of data transfer. Since intermediate buffering is inevitable in the UNIBUS 
design, as described above, the time taken to first transfer the data from user 
buffer to pool area or vice versa is an extra burden and slows down the data 
transfer by about 402. 


4.2 EXHAUSTION OF POOL SPACE: 


If there are many tasks requesting for the pool space for data transfer 
the pool area might get exhausted and in such a happening the ACP will put the 
requesting task's I/O packet in a secondary queue which is again put into the 
internal queue after all requests are honoured and so again they become eligible 
for requesting the pool and again, if no pool has become free then the process 
is repeated until a buffer gets free and then this request is honoured. During 
all this time the buffers are not free, the task will keep waiting and hence 
will eat up that memory space as it cannot be checkpointed during the time 
the buffered I/O is in process. This is because task checkpointing during the 
buffered I/O is not implemented because the same code is being used for the 
Q-BUS machines which donot indulge in buffered I/O. To implement this the code 
size would increase and would further complicate the already complicated logic 
of the ACP making it difficult to maintain. 


4.3 BUFFER SIZE: 


The buffer size specified by the user should not be greater than 1KB 
and if it is then an error status is returned and the request is not honoured. 
The user is advised to do a series of QIO's to transfer more than 1KB of data 
This might further slow down the process of data transfer. 


4.4 INEFFICIENT USE OF THE POOL AREA: 


The pool is divided into 14 buffers of exactly 1KB size. This means that 
for a data transfer of less than a hundred bytes would use up 1KB of pool space 
and a task requesting more than 1KB would then have to wait. This limitation 
is due to the simpplified approach used in managing the pool and thus keeping 
the size of the ACP to the minimum and the code simple. This problem would arise 
only when the traffic is very high and all the pool space gets exhausted but 
normal circumstances when one FTP client and one FTP server plus a telnet 
client are running there wont be any problem depending on how fast the network 
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iS. 
4.5 UNIBUS FOR PDP-11/70 


It is not certain that the current software would run properly for the 
PDP-11/70 processor since that processor uses the MASSBUS. Unless this software 
is tested on such a machine nothing can be said about its performance on that 
machine but the best edducated guess is that it shiould work! 


5. ENHANCEMENTS AND IMPROVEMENTS: 
5.1 POOL MANAGEMENT: 


This could be made more complex by making it to allocate any given 
numbers of bytes in a way similar to the "malloc()" and "free()" routines 
in a high level language run time support. But an upper limit of 2 or 4KW would 
anyway will have to be put because if, for example, the "TTCP" program does a 
read for 4KW in loopback mode then the other TTCP will have to do a write of 
4KW and hence they would both be hung up for ever. Hence, the complexity is the 
main thing that will increase for better pool management. 


5.2 TASK CHECKPOINTING DURING THE INTERMEDIATE BUFFERRING: 


As described in the Limitations this feature is not implemented but it 
can be done by using the routines $TSTBF, $INIBF and $QUEBF as described in the 
Guide to writing I/O drivers for RSX-11M-PLUS, section 1.4.8. This feature would 
definitely improve system performance as the memory would not be tied up by the 
issuing task as it would be checkpointed. This could be done for both read and 
write requests. 


Nov 14 12:50 1985 m.to.mplus Page 1 


RSX TO MPLUS ---> MAJOR CHANGES 


The following changes were necessary to be made in the EXOS driver 
ZEDRV/RTHACP for the RSX-11M to make it possible to run on the RSX-11M-PLUS 
operating system. 


The RSX-11M-PLUS O.S. has some added features incorporated to support 
different kinds of controllers and the system has taken more control over the 
handling of different types of controllers. There are two major data structures 
added for this purpose - The CTB (controller table) and the KRB (controller 
request block). The CTB defines the type of controller and the KRB describes 
individual controllers and their characteristics. 


In the existing data structures for the RSX~11M driver the only ones 
that have almost remained the same are the DCB (device control block) and the 
UCB (unit control block). The SCB (status control block) has changed. 


The other major change in the driver code is the Driver Dispatch Table 
(DDT). There are some new entry points that have been added which are helpful 
in initializing the driver, getting the controller and units on/off line etc. 


1. THE DETAILED DESCRIPTION OF THE CHANGES: 
1,1. DCB: 

no changes. 
1.2. UCB: 


U.UCBX is an added field. Also initializing the units as offline. 
(they will be made online by the CON task.) 


1.3. SCB/KRB: 


The SCB and the KRB are to be made contiguous which means no more 

than one unit can operate at a time on one controller. Since the EXOS 
controller does not use this strategy of physical units attached to the 
controller, but has the concept of logical units (channels), this 
minimal strategy is maintained. There are some new fields added to the 
SCB concerning error logging, I/O page registers, KRB address, status 
fields etc. The KRB has information about the status of each controller, 
the interrupt vector address (which was first in the SCB), CSR address, 
priority, UCB table, I/O count, active unit's UCB address etc. 


1.4. CIB: 


This describes the characteristics of the EXOS ethernet controller Like 
the name, status, pointer to DCB etc. 


1.5. DDT: 


The driver dispatch table is now just a Macro call which initializes 
the dispatch table. This contains information regarding the various 

entry points to the driver - the four conventional ones$} initiator, 

cancel, powerfail and timeout plus the new ones specially for the 
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RSX-11M~PLUS system - the loadable driver entry point, unload entry 
point (these are called while loading and unloading the driver), the 
controller and unit online/offline entry points (to perform certain 
functions while bringing the controller and units on/off line). 

There has been no change in the logical flow of the driver 
code but the powerfail entry point for the RSX-11M is now the load 
entry point for the RSX-11M-PLUS system. 


1.6. ACP: 


The ACP, being a task, has not suffered many changes. The only place 
where the problem arises is in the file UNIMAC.MAC where the offsets 
refering to the SCB are not altogether symbolic and hence the offsets 
get changed. Some conditional coding has been added here such that both 
the systems would get their respective offsets. 

(the conditional coding for UNIBUS and Q-BUS M/C's would remain as such) 


Most of the code that has been changed has been condionalized at the 
assembly level such that it will also run on the RSX-11M Q-BUS or UNIBUS 
systems. Digital only allows user written device driver names staring with 'Z' 
for RSX-11M systems and the ones starting with 'J' or 'Q' for RSX-11M-PLUS 
systems. But to maintain the simplicity in maintaining the code ,i.e. having one 
piece of code conditionally written such that it will run on all the four types 
of systems - RSX-11M (UNIBUS and Q-BUS) and RSX-11M-PLUS (UNIBUS and Q-BUS), the 
driver on the M-PLUS system was also given the name 'ZE'. This was not according 
to the conventions of DEC but, well, our convenience is first preference! 


2. CHANGES FOR THE UTILITIES AND XOSLIB IN CHANGING FROM RSX-1M TO 
RSX-11M-PLUS: 


The main changes made were in the files radix.mac, pasword.mac, 
Xinitenv.c. These changes were such that these files could also be used for 
the RSX-11M systems. The changes were as follows: 


1. radix.mac: It did not support the blanks in the input ascii name 
and now it does. . 

2. pasword.mac: There were some potential bugs in the RSX-11M version 
which came to light in the M+ software and were fixed. 
The account file was not being closed by the login task 
because it was first exiting after validating the account. 
But when the strategy to keep the login task running all 
the time, letting it dequeue packets for validating the 
account, was made, the login task never closed the 
account file and no other user could login. Earlier, when 
it was exiting, the file was being closed. 

3. xinitenv.c: The task name of the login and master tasks in the M+ 
are different from that in the M software. To take care 
of these differences the executive call get task info 
is called and it is checked which system this task is 
running on and then the correct task name is issued in the 
send data requests. 
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DESIGN/MAINTAINANCE DOCUMENTATION FOR THE TELNET SERVER 
ON RSX-11M/RSX-11M-—PLUS 


by 
Asim K. Mehta 


1. INTRODUCTION: 


The Telnet server comprises of Three distinct parts: 
i) The ON-BOARD Telnet Server (which is downloaded onto the board), 
ii) The routines in the ACP which handle the Telnet Server requests and 
iii) The Pseudo Terminal Driver which actually serves the remote terminals. 


The first part, the ON-BOARD Telnet Server is not host dependent and 
will not be discussed here. The second part is the interface between the first 
and the third. These other two parts reside on the host and need a thorough 
investigation as to how the design was done and how to maintain them. 


2. OVERVIEW: 


The Board/Host interface regarding telnet is described in the "ON-BOARD 
Telnet Server To Host Interface" by George Powers. 

The ACP receives the requests from the remote terminal via the EXOS-to- 
HOST message queue and gives back replies to the remote terminal via the HOST- 
to-EXOS message queue (The method of the ACP receiving messages and giving back 
messages from/to the board is described in the relevant design document). On 
receipt of any request/reply for telnet, the ACP dispatches it to the relevant 
routine which does the job of interfacing with the Pseudo Terminal Driver/EXOS 
board. 

The interface with the Pseudo Terminal Driver (called ZTDRV) is similar 
to that of a normal modem multiplexer used with the TTDRV (like the DLV11-E 
asynchronous line interface with full modem control). Except for the concept of 
ringing, everything else is almost similarly modelled. Ofcourse, there are no 
CSR's in our case as it is modelled as a pseudo multiplexer and the input and 
output interrupts are simulated from the ACP by QIO calls to ZTDRV. 


3. DESIGN DETAILS OF THE BOARD TO HOST (AND VICE-VERSA) INTERFACE FOR TELNET: 


The Host and Board communicate via the message queue mechanism and the 
Telnet Server requests are distinguished from other requests by the nm request 
field of the message structure called Telnet _srvr which is initialized as 
TSCOMMAND for telnet requests/replies. As soon as the "request()/reply()" 
routines recognise the request to be that for telnet, they pass control to the 
routines which handle telnet requests/replies. 

If the request is from the board then it is an unsolicited reply for the 
ACP and the routine "reply()" recognises it as one for telnet and calls the 
routine "dispatch()" (in file RTH.C) which dispatches to the correct routine 
depending on the telnet command specified in the nm_tsrqst field. The following 
commands could be expected from the board and the appropriate action is taken as 
described below: 
(the routines to which the dispatcher dispatches are all in the file RTH.C) 


3.1 TSCARON/RLCARON: 


This command tells the host that the carrier is ON for a remote terminal 
whose pty no. is in the field nm sioid. The dispatcher calls the routine 
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"caron()" which establishes the carrier ON and enables the unit (US.CRW clear 
and US.DSB clear) in the ZTDRV database. It also sends a CNTRL'C' to the ZTDRV 
as an unsolicited input so that an MCR> prompt is sent to the remote to indicate 
a successfully established connection. 


3.2 TSCAROFF : 


This is sent to the host when the remote terminal wants to break the 
connection. The routine "bye()" is called for the purpose. It gives a CNTRL'C' 
followed by a 'BYE\r' to the ZTDRV as an unsolicited input which logs off the 
user from the system. The “C is given because, for example, just in case text 
edition is in progress then the line "BYE\r" will be written as new text instead 
of a logout request. “C will put the process in the background and then logout 
the user.(Won't work for EDT, though!) 


3.3 TSREAD: 


The remote terminal sends unsolicited input to the ZTDRV via the read 
data stream in the array tsdatal] field of the Telenet srvr structure. (It may 
be just be read data for a process running on the remote terminal and not 
unsolicited input!) The routine "zt read()" is called by the dispatcher 
("dispatch()") which passes the data to the ZTDRV by a simple QIOW #I0.INP call 
which is accepted by the ZTDRV as an input interrupt and the data is input into 
the driver and processed normally (described later in this doc as to how). 


3.4 TSNVIFUNCT: 
These are requests for the standard Network Virtual Terminal Functions 
which are described below: 


(They are serviced by the routine "nvtfunct()" called by the dispatcher.) 


i) AO - abort O/P - “O is sent to ZTDRV as an unsolicited input. 
ii) AYT - are you there? - ignored as the board takes care. 


iii) EC - erase character - BS is sent as an unsolicited input. 
iv) EL - erase line - “U is sent as an unsolicited input. 
v) IP - interrupt process - a “C is sent as an unsolicited input. 


3.5 TSDOOPT: 


The board sends certain telnet options which the client requests and the 
host is supposed to fulfil these options as far as possile. The routine 
"do option()" is called to set the options. The following are the possible 
options that would be asked to be set by the telnet client: 


i) TELOPT BINARY - a QIOW #SF.SMC is sent to the ZTDRV to set this 
option with the bit TC.BIN set. 


ii) TELOPT ECHO ~ same as TELOPT BINARY but here the bit is TS.NEC 
that is cleared to set the echo option. 
iii) TELOPT SGA - suppress go ahead - no action is taken. 


3.6 TSDONTOPT: 


The function "dont option()" is called which calls "do option()" with 
the second parameter non-zero indicating it to reset the options instead of 
setting them. 
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3.7 TSWRITE (h2x): 


When the System has to send some data to the remote terminal, then the 
ZTDRV sends the write data in an I/O packet queued to the ACP via S$EXRQF system 
call. The function code is a pseudo fn code IO TEL with which the ACP (routine 
"request()") recognises the request as one for telnet to be sent to the board. 
The routine "telnet()" is called which prepares the message queue (Telnet srvr) 
(by calling "wr to exos()") from the information present in the packet, and thus 
the write data is sent to the remote terminal. Then this packet is deallocated 
back to the system pool (as it was allocated in ZTDRV from the system pool and 
this is not a regular I/O packet but one to serve our purpose of sending data 
to the board). 


3.8 TSWRITE (x2h): 


This is a reply from the ON-BOARD telnet server to the last TSWRITE 
(h2x) request and this is considered as an output interrupt to the ZTDRV to 
signal the completion of an output to the board. The output interrupt is given 
as a QIO #10.0OUT in the routine "write reply()" dispatched to by the routine 
"“dispatch()". This is a simulated output interrupt and the ZTDRV takes this as a 
normal QIO request but the controller dependent routine considers it as an Q/P 
interrupt. 


3.9 TSHANGUP (h2x): 


This is a request which the host has to make to the ON-BOARD telnet 
server when a remote terminal logs out of the system. When the user types in 
‘bye’ or ‘logout’ as an unsolicited input, the BYE task is invoked which first 
logs off the user and then calls the ZTDRV with a QIOW #I10.HNG which gives 
control to the time out entry point of the controller dependent routines and 
here a packet with a pseudo fn code TS.HNG is created and queued to the ACP 
via the $EXRQF system call. The ACP, after getting this packet, gives control 
to the routine "“hangup()". This routine prepares the message area (Telnet srvr) 
and sends the TSHANGUP request to the ON-BOARD telnet server which severs the 
connection fot that pseudo tty. 


4. ZTDRV - THE TELNET DRIVER: 


The ZTDRV is a pseudo terminal driver for the remote terminals and 
actually does the character processing. Most of the ZTDRV code stems from the 
standard TTDRV code for the RSX-11M/RSX-11M-PLUS systems. The module which 
actually does the interfacing with the standard terminal driver code is the 
controller dependent routine for the new pseudo controller added into the 
existing terminal driver. This pseudo controller is called the DT-1l and the 
controller dependent routine is called ZTYT. The reasons for the pseudo 
controller not being added to the existing terminal driver are described in the 
next section. The code for this pseudo controller dependent routine and the 
rest of the TTDRV code plus the changes in it to suit the new pseudo controller 
is named ZTDRV - the new pseudo terminal driver for telnet. 


4.1 DECESION FOR KEEPING ZTDRV AS A SEPARATE TERMINAL DRIVER: 
This decesion was taken for the following reasons: 


1. It would be a lot easier to debug a separate driver rather than the 
TIDRV which would be already resident and to make some change in the 
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driver, Sysgen would have to be performed all over again to rebuild 
it. 

2. To add another controller to the existing TTDRV would mean that the 
source files of the standard TT driver would have to be modified and 
this would mean a re~Sysgen to incorporate the new TT driver with 
the pseudo controller. The main aim of the present EXOS software is 
to try to incorporate networking on existing systems and it would be 
ridiculous to ask the customer to do a SYSGEN to incorporate the 
pseudo terminal driver. 

3. There are certain terminal characteristics which are necessary for 
the pseudo controller like modem support which might not be supported 
on the user system. To add that support a re-Sysgen is necessary. 


The main drawback of this decesion is the utilization of a lot of 
resident memory space - 8KW - as the ZT driver is always resident in the memory 
while it is loaded and its data base is always resident while it is unloaded. 
And it also utilizes a lot of space from the system pool as will be discussed in 
the section for System resource consumption. 


4.2 CONTROLLER HANDLING IN A TERMINAL DRIVER: 


The TTDRV handles different kinds of controllers especially made by DEC 
(e.g. DL,DJ,DZ,DH,DM,etc.) and each is of a different kind and has to be handled 
separately by the driver. Most of the code for the TTDRV is common to all the 
controllers. But, for their specific functions there are controller dependent 
routines which are called upon to do the required specific functions. 
A typical flow of a normal controller action would be as follows: 


4.2.1 A TYPICAL CONTROLLER ROUTINE FLOW: 


When a character is typed from the terminal, an interrupt is raised 
which brings control to the input interrupt entry point of the controller dep. 
routine. This causes the routine to pass the character to the input character 
processing routine common to all the controllers and then if echoing is required 
then it is output via the output interrupt routine - the character is first put 
in the proper XBUF and the output interrupt is enabled. The controller raises 
the output interrupt which means the character has been successfully output and 
the control comes to the output interrupt routine. If there are more characters 
to be output then the same procedure is followed. When a task has to output any 
buffer onto the terminal, then it calls this output interrupt routine and the 
same procedure takes place. 

When the TT driver wants to stop the output say, when a “S arrives, then 
the controller dependent routine is called at its stop output entry point. Here 
the output interrupts are disabled by setting the appropriate bit in the CSR. 
Similarly there are other entry points for other purposes like the resume O/P 
entry point, the modem timeout entry point, the power-up entry point, etc which 
are called when the appropriate action is required. 


4.2.2 DATA BASE RELEVANT TO THE CONTROLLER DEPENDENT ROUTINES: 


For the RSX-11M systems the following data structures are relevant for 
for the controller dependent routines: 


1. The controller type. It is a number given to different controller 
types by DEC and the different controller types are accessed by this 
number. 
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2. The controller index. For a particular type of a controller, there 
may be more than one controllers existing simultaneosly. These are 
given numbers called the controller index. 

3. The controller table CTBL. This is a dispatch table containing the 
addresses of controller dependent routines which are to be called 
whenever required by the driver. Each routine has its particular 
number and this allows proper dispatch for any controller. 

4, The UCB table. This is a table of UCB and the CSR addresses for a 
particular type of a controller by which, when it is interrupted, 
it can get the UCB and the CSR address of the correct unit by 
indexing the table with the controller index which is passed in the 
PS word (bits 0-3) when an interrupt arrives. 

5. The UCB and the SCB are also extensively used by these routines. 


For the RSX-11M-PLUS systems the following data structures are relevant 
on top of the ones discussed above for the RSX-11M except the UCB table which is 
not used here? 


1. The Controller table CTB. This is a data structure in the pool area 
and has information like the controller name, addresses of contoller 
request blocks, some status information, link to the next controller 
table, etc. Each controller type is defined by such a block. 

2. The Controller request block KRB. This contains all the information 
like the CSR address the controller type, the vector address etc. 
Every controller has to have one such block by which its run-time 
status, its controller index, etc. can be determined. 

3. The SCB and the KRB may be contiguous for controllers having only one 
unit and allowing full duplex operation. 

Please see the guide to writing I/O drivers for RSX-11M-PLUS for further 

information on these data structures. 


4.3 THE PSEUDO CONTROLLER FOR TELNET: 
4.3.1 OVERVIEW: 


To interface the telnet protocol to the system, there was a need to 
communicate between the terminal driver and the ACP, since it was the ACP that 
got all the telnet protocols from the board. The best way was to model a pseudo 
controller in the ZTDRV which would do this job. Hence, the main function of 
this module would be to somehow take in characters received from the remote 
terminal and input them to the input character processing routines of the 
terminal driver and to somehow get to output characters to the ACP which could 
transfer them to the board and finally to the remote terminal. 


4.3.2 NAMING CONVENTIONS AND GENERAL DESCRIPTION: 


This controller is called DT-11 and the module which handles this is 
called ZTYT. The controller number given to this pseudo controller is not fixed 
but is so coded that at assembly time it would get the last controller number 
after the ones defined by DEC. This is done to take into account the fact that 
DEC might upgrade the TIDRV by increasing the number of controllers supported 
by the terminal driver and that would conflict with our design. All the 
controller dependent routines start with the letter 'Y' and so our controller 
dependent routines are called 'YT...' as our controller name is D'T'-11. An 
assembly time label called D$$T11l has to be defined to inform the ZTDRV software 
of the existance of such a controller and its value indicates the number of 
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units of these controllers existing (8, in our case, at present). 

The controller dependent routines for this controller are added to the 
controller table CTBL and hence they would be called whenever there is a request 
for this controller. The controller type is stored in the UCB for RSX-11M 
(U.CTYP) systems and in the KRB for RSX-11M-PLUS systems (K.PRM). It is from 
here that the driver accesses the controller type and then dispatches to the 
required routine. 


4.3.3 THE RELEVANT DATABASES: 


Besides the data strucures required by the System viz. DCB, UCB and the 
SCB for RSX-11M and on top of these the CTB and KRB for RSX-11M-PLUS there are 
a few used by the controller dependent routines for the pseudo controller DT-1l. 
These are added separately and are described below: 


UCBADD --> local storage for UCB address for use by the conroller dep. 
routines for the pseudo controller. 

LOCBUF --> stores upto 32 input characters temporarily. 

COUNT --> byte count for the I/P characters. 

ADLBUF --> address of pointer to I/P characters. 


Also added are the input and output interrupt entry points for the 
controller which correspond to the I/O function codes added - IO.INP and I0.OUT 
in the dispatch table for the entry points for different function codes - QPDSP 
These are called QPINP and QPOUT. The initiator entry point for the ZTDRV 
dispatches to the required routines according to the function codes specified 
and hence for IO.INP and IO.OUT the contol comes to QPINP and QPOUT. These 
function codes are also added in the DCB for the pre-driver processor to 
recognise these I/O codes. 

The UCB table is added just for consistency requirements in the terminal 
driver code but here there is no functional use for the UCB table. 

All the detailed description of these added data structures are given in 
the section on maintainance of the ZTDRV with filenames and line numbers. 

In the RSX-11M system there is a DCB describing the device type for the 
ZTDRV which has fields describing the legal function codes allowed on this 
driver and also types o function codes allowed. There is one DCB for the ZTDRV. 
There is one UCB for each unit which has some static and some run-time status 
information of the individual units. At present there are only 8 units supported 
as more would eat up a lot of system pool. Since each unit is capapble of being 
active simultaneously, there exists an SCB for each unit which keeps run-time 
information. 

For the RSX-11M-PLUS systems in addition to the DCB and UCB's there 
exists a CIB, the controller table describing the type of controller supported 
by the driver. There is one CTB descrinbing the DT-11 contoller whose name is 
'ZT'. There exists a contiguous SCB and KRB combination since each controller 
has only one unit attached and also each units is capable of full duplex 
operation. The KRB describes each individual controller. 

The important fields worth a mention in these data structures are as 
as follows: 

DCB: 
D.NAM --> device name 'ZT' by which the system will recognise the 
device. 
UCB: 

U.CTL --> control flag UC.QUE which calls driver before queueing the 

packet. 

U.STS --> US.CRW says unit waiting for carrier. 
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US.DSB says unit disabled. 
U.CW2 --> U2.RMT says unit is a remote one. 
SCB: 
S.VEC --> vector address initialized as 0 since no real interrrupts. 
§.CSR --> CSR address also initialized as 0 since no real device. 
KRB: 
K.VEC --> vector address initialized as 0 since no real interrupts. 
K.CSR --> initialized to the CSR for ZE device - ZECSR - since the 'CON' 
task requires to probe into the CSR before putting the devive 
or controller ON-LINE. This constant is defines during task 
building of the ZTDRV depending on what the actual CSR is. 
This is a suggested improvement but presently it is 
initialized to 164000. 
CTB: 
L.»NAM --> controller name for the pseudo controler - initialized as 
'ZT' since it does not take a separate name from the device 
name. 
L.eKRB --> table of KRB addresses for ail the 8 controllers. 


4.3.4 CONTROL FLOW OF TYPICAL TELNET REQUESTS: 
The flow of the controller dependent routines is as follows: 


When there is a request for making the carrier on from ther board for 
a particular pseudo tty then the routine in the ACP sets the unit as “not 
waiting for carrier" and enables the unit. This allows the request to come to 
the ZTDRV whenever there is a QIO #IO.INP for unsolicited input. The control 
first comes to the initiator entry point ZTINI. This routine dispatches to the 
proper function servicing routine using the table QPDSP. The control then comes 
to the routine QPINI for the function code IO.INP and to the routine QPOUT for 
the function code IQ.OUT. 


4.3.4.1 QPINP: 


In the routine QPINP the input data is transfered into the local data 
structure LOCBUF and then one by one each character is input to the input 
character processing routine ICHAR1. The control flow is modelled similar to 
the DLV11-E with modem control. Then, for echoing the character, the start 
output routine YTSTAX is called which calls a routine OUTBUF which prepares a 
packet of 48 bytes from the system pool and queues it to the ACP via a SEXROQF. 
The TCB address of the ACP is found from the ZE data base U.ACP in its UCB. 
After the input characters are processed, the routines are called which process 
any other packet that would have arrived and also any other type of procesing 
Like start unsolicited input processing, post fork processing etc. 


4.3.4.2 QPOUT, OUTBUF: 


For doing an output to the remote terminal, a QIO/QIOW #10.WLB or IO.WBT 
is done which brings control to the controller dependent routine YTSTAX and this 
routine calls the routine OUTBUF which creates a packet in which the output data 
is stored and queues it to the ACP. After any data is queued to the ACP i.e. 
after data is output to the board, there has to be an output interrupt to 
acknowledge the completeion of output. The board gives a write reply after every 
write to the board and this is considered as the output interrupt and sent as a 
QIO #I10.0UT to the ZTDRV which brings control to the routine QPOUT in the ZTYT 
module through the initiator entry point ZTINI. Here the routine OUTBUF is 
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called where the output buffer is first checked for any bytes left to be output 

and if so then another packet is created and queued to the ACP which again sends 
an output interrupt. If there is no data left for output then the routine ODONE 

is called which finishes the I/O by an IOFIN. 


4.3.4.3 YTRESX: 


The resume output entry point is called whenever there is a “Q in the 
unsolicited input data stream. For a typical controller this routine is supposed 
to enable the output interrupts which will resume the output. But here there is 
no way of enabling the output interrupt but to simulate one that will cause the 
output to resume as the main driver code resets the bit S1.CTS which was set by 
a “S. The output interrupt is simulated by sending a dummy packet to the ACP 
with byte count as 0 and it recognises this packet and sends a QIO #I0.OUT and 
this starts the output in the usual way. 


4.3.4.4 YIMTIM: 


The modem time out entry point is called by the main ZT driver code 
whenever an I/O is cancelled by an IO.KIL (by doing an ABO to a running task 
on this terminal) and when a user loggs out and the 'BYE' routine gives a 
QIO #I10.HNG to the ZTDRV which calls the controller dependent routine at this 
entry point if the unit is a remote one. Here it is first checked if the user 
is logged in or not. If Logged in then control has come due to an IQO.KI1 and 
this call is discarded and directly returned to the caller. If not logged in 
and if the carrier is still on (i.e. not waiting for carrier) then control has 
again for an IO.KIL as user is not logged in but could still run the HELP 
facility. If the unit is waiting for a carrier then the control has come 
from PPHNG, the routine that services the function code IO.HNG. In this case 
a packet with a pesudo function code (the one not described in the DCB) of 
TS.HNG is created and sent to the ACP via a S$EXRQF (similar to that in YTRESX) 
and the ACP calls the routine hangup() to send a TSHANGUP request to the board. 
Here the unit is also disabled (US.DSB) and the routine PPHNG sets the unit as 
waiting for carrier. 


4.3.4.5 YTUOFF: 


For RSX-11M-PLUS systems control comes to this entry point whenever 
the unit is brought offline. Here the typeahead buffer is deallocated since 
it is allocated in the online entry point for the driver and not deallocated 
atall so if a driver is unloaded and loaded again, the previous address of the 
typeahead buffer remains in the UCB (which remains resident) and while loading 
the driver again the typeahead buffer is not allocated as some garbage address 
is present in that filed in the UCB. This causes the system to crash. If the 
typeahead buffer is deallocated when the driver is brought offline then that 
field is cleared and reloading the driver causes no problems. 


4.3.4.6 UNITNO: 


This routine calculates the unit number of the unit in question and 
stores it into the pty _no field of the packet queued to the ACP. 


4.3.4.7 GETACP: 


This routine gets the TCB address of the ACP from the ZE data base 
U.ACP of its UCB and returns it in RO. 
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4.3.4.8 ZTSET: 


This is the setup routine for the input interrupt entry point similar 
to the TTSET routine in the TTDRV which is common to all the controllers. This 
routine's structure is similar to the TTSET's but since TTSET is called at 
interrupt level there are some extra things it does over there (calling $FORK 
etc.) which are not required here as control comes here via a QIO. This routine 
is called as a coroutine from QPINP and when input processing is over control 
comes back to ZTSET and here it checks if any other processing is required or 
not. 


4.3.4.9 YTCOFF:: 


This is the controller offline entry point for the RSX-11M-PLUS systems 
and control comes here while taking the controller offline. Here the Clock Block 
that was allocated from the system pool is deallocated back to the system pool. 
First the clock block is removed from the clock queue by finding the entry in 
the link lisk for clock blocks called $CLKHD and then it is deallocated to the 
system pool. 


5. RESOURCE USAGE BY THE TELNET DRIVER: 
The telnet server, as a whole uses the following system resources: 
5.1 SYSTEM POOL: 


The main carrier for communication between the different of the Telnet 
Server is the I/O packet. This is allocated from the System Pool which is one of 
the most critical system resource and the whole performance of the system 
depends on this. 

The ZTDRV's code size is around 4KW and the rest of the available 4kW 
are used up in forming the local pool which is used for allocating all sorts of 
buffers for internal use of the driver like the UCB extension, the type-ahead 
buffer, the buffers for intermediate bufferring, etc. If for some reason this 
local pool gets exhausted due to extensive load, then the system pool is used. 
This cannot be estimated but it depends on the load on the ZTDRV (no. of remote 
users, no. of tasks running on the remote terminals, etc.). 

The data to be output to the board from the ZTDRV is transfered to the 
ACP via a packet allocated from the system pool. The size of this packet is 48 
bytes. The ACP deallocates this packet only when the request from the ZTDRV is 
honoured otherwise it is kept in an internal ACP queue till it is serviced. The 
amount of such packets depends on the size of the buffer to be output and if 
the rate at which the packets are allocated is higher than the rate at which 
they are deallocated, then the system pool might get exhausted. This, again, 
depends on the amount of traffic in the ACP. Normally these rates are almost 
same. 

When the ACP gives an O/P interrupt to the ZTDRV via a QIO #I0.OUT, a 
packet is used up for the QIO (18 words for the RSX-11M and 20 words for the 
RSX-11M-PLUS). But this packet is given back to the pool as soon as the control 
comes to the ZTDRV. Also for the unsolicited input a QIOW is done which uses up 
one packet. This is also almost immediately returned to the system pool as soon 
as the input data is transfered to the local buffer. 


5.2 CPU TIME: 
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Most of the processing takes place at priority 0 and hence it does not 
hog the CPU at any time. Since there are no interrupts, the ZTDRV never operates 
at interrupt level and this causes no grief for other peripherals. 


5.3 UMR'S: 


The ZTDRV as such uses no UMR'S as it does not use the UNIBUS but the 
ACP does transfer the data to the board via the message area which contantly 
uses one UMR for the purpose. 


5.4 EVENT FLAGS: 


Only the event flag number 1 is used by the ACP for QIO's to the ZTDRV. 
So in adding any directive to the ACP this should be taken care of though it 
will not cause any trouble as it is used in blocked I/O's. 


6. MAINTAINANCE GUIDE FOR THE ZTDRV: 


The following is a line-by-line description of the changes done from the 
standard TIDRV to the make the ZTDRV. The reasons for the changes are also given 
and also their effects on the performance of the telnet operation: 


6.1 In all the files of the TTDRV, the .TITLE TT... is changes to ZT... 
as these are the module names for the new ZT driver. 


6.2 ZTDAT.MAC: .IDENT /04.03/ 


This file contains all the local data structures for the ZTDRV. These 
include the dispatch tables for different function code handlers, for the 
controller dependent routines, for the terminal characteristics routines, 
character processing routines, etc. Also these contain the definitions for the 
different controller types, terminal types, controller tables, etc. 


1. Topic: Support for certain terminal characteristics is not there in certain 
versions of the RSX-11M. To take care of this sime .IF's have been 
added. 


Line numbers: 451-460 After ".ENDM ETERM..." 
500-504 After 'TERM T.BMPI..." 
522-526 After "ETERM T.V132..." 
Changes to existing code: 


Previously: "TTPHI == T.V2Xx" 
(The following are the line numbers after the changes) 


(The .IF's and their corresponding .ENDC's are added but the rest 
already exists) 


1. #451 : "IF DF T.V2xx" 

2. #453 : "TTPHI == T.V2Xx" 

3. #456 : IPE" 

4. #458 ; "TTPHI == T.BMP1" (added). 

5. #460 : “JENDC 3T.V2Xx" 

6. #500 : "IF DF T.V2Xxx" 

7. #502 : "TERM T.V2XX WID=80.,LEN=24.,HHT=1,SCP=1,CUP=3" 
8. #504 : "SENDC 3T.V2Xx" 
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2. 


9. #522 ; "IF DF T.V2xx" 

10.#524 : "ETERM T.V2XX ANI=1,DEC=1,AVO=1,EDT=1,SFC=1 
11.#526 : "JENDC 3T.V2xx" 

12.#985 : "IF DF TC.SFC" 

13.#987 ; "MCGEN TC.SFC,U.TSTA+6,S4.SFC 3;SOFT CHARACTERS 
14.#989 : " ENDC 3TC.SFC" 


Topic: Table of pointers to dispatch tables in controller dependent routines. 
line numbers: 530-644 After “ETERM T.V2XX..." 


Changes to existing code: Addition of an entry into the dispatch table but 
DEC's future releases and addition of new controllers will not affect 
our code. 


Added code/data structures: 


1. #553: My = 0" 
Constant symbol 'I' added for the purpose of calculating 
the controller type (index for these dispatch tables). 

2. #558: "T =I + 2" 
Iterate this expression the number of times as there are DEC's 
standard controllers so that I gets the value of the last 
controller plus 2. 

3. #610: "YTINDX == I" 
A global symbol defined as the controller type (I) and is used in the 
ZT data base SCB and the UCB. 

4, #614-644: MSYTTB ies 
The dispatch table for the DT-11 controller with 
routine names starting with 'YT' 


Topic: Verification of the value of the function codes and the dispatch table 
for processing different function codes before entering a packet in 
the I/O queue. 


Line numbers: 709-710 After "ASSUME IO.RTT/400,12..." 
766-767 and after ".WORD QPRLB..." 


Changes to existing code: Addition of entries into the dispatch table 
which will affect the future releases if DEC adds new function codes. 
There will be a conflict with our function codes (IO.INP and I0.OUT) 
and these have to have values such that they can index the last entries 
in the dispatch table which are contiguous entries. 


Added code/data structures: 


1. #709: "ASSUME I0.INP/400,13" 
#710: "ASSUME I0.OUT/400,14" 
These function codes are initialized with the values one more than 
the highest existing function code value i.e. IO.RTT/400 is 12 
and the next higher value is 13 which is for IO.INP/400 and 14 for 


TO.0UT/400. 
2. #766: "WORD QPINP" 
#767: "WORD QPOUT" 


The entries in the dispatch table which are the input and output 
interrupt entry points for the DT-11 controller. 
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4. Topic: Local data structures added for the YT controller dependent routines. 
Line numbers: 1065-1068 After "OPTIMR::.WORD OPTIME..." 


Changes to existing code: none. 


Additions: 

1. #1065: "UCBADD: : -WORD 
Storage for the UCB address. 

2. #1066: "ADLBUFS 3 -WORD 0" 
Address of the local buffer. 

3. #1067: "LOCBUF: : -BLKB 32." 
Local buffer for input characters. 

4. #1068: "COUNT: : eWORD 0" 


Byte count for the input characters. 


5. Topic: Data structures are added to include ztdrv's own Clock BLock, Fork 
Block and UCB Queue. 


Line numbers: 1073-1110 After "COUNT:: .WORD 0..." 
Changes to existing code: none. 


Additions: 
In all from Lines 1073 to 1110: 


X1=1 
X1=1 
.IIF NDF MS$$PRO X2=1 
.IIF DF M$$PRO X2=M$$PRO 
.REPT X2 
ZTSUQL=. 
IF DF M$$PRO 
LCKDF$ SPIN 
~IFTF 
.IIF NDF $ZTUQ $ZTUQ==. 
.WORD 0,.-2 


we 


IFT 
.WORD Xl 

X1=X1*2 

.ENDC 

.IIF NDF $ZTFB $ZTFB==. 
.WORD 0,0,0,0,0 
ZTSUQL==.-ZTSUQL 

.ENDR 


INDEX TABLE TO ZT DRIVER 
UCB QUEUE HEADS AND FORK BLOCKS 


ws we we we we 


.IF DF M$$PRO 

X1=$ZTUQ+2 
$ZTUQT: : 

.REPT M$$PRO 
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.WORD Xl 

X1=X1+ZTSUQL 

.ENDR 

.ENDC 
; 
; 
; ZT DRIVER CLOCK BLOCK 
; 
$ZTCB:: .WORD 0 ; ADDRESS OF THE CLOCK BLOCK 

. EVEN 


6. Topic: Table of pointers to UCB tables. 


Line numbers: 1245-1249 After "TTUCB::..." 
1274-1284 After "DL-11 Data bases..." 


Changes to existing code: Addition of one more entry in the Table of 
Pointers to the UCB tables for Df-11 controller. This change does not 
affect the existing code even if DEC upgrades or introduces support for 
more controllers as this entry will always be the last one and will be 
indexed by the controller type which is the highest always. 

This change will only be valid for RSX-11M systems and not for 
RSX-11M-PLUS systems as they donot require these tables. 


Additions: 
1. #1245: ",IF DF D$$sT1l" 
2. #1247: "WORD DTUCB" 
3. #1249: ",ENDC ;DS$T11" 


4. from #1274-1284: 
.IF DF DS$sTll 


DTUCB:: ; DT UCB POINTER TABLE 
N=0 
eREPT DS$T11 
-WORD DTUCO+N 
N=N+4 
- ENDR 
DTUCO: .BLKW D$$T1l1*2 ; DT UCB/CSR TABLE 


.ENDC 3 DF D$$Tll 


7. Topic: Instructions added and modified to allocate the Clock Block from the 
system pool. And the Fork Block is made ZTDRV's and not TTDRV's. 


Line numbers: 1661, 1673 and 1877-1886 


Changes to existing code: 
1. #1661: "MOV #5ZTFB+10,R1 ;GET POINTER TO KINAR6 WORD IN" 
2. #1673: "MOV RO,@#$ZTFB+10 ..." commented out. 
3. #1877-1886: 
"MOV #$DEVHD, RO 


358: 
MOV @RO,RO 
BEQ 50$ 


CMP D.NAM(RO) ,#"ZT 
BNE 35$ 
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CALL $ALCLK 
MOV RO,$ZTCB 
MOV #TTICK,C.SUB(RO)" 


Additions: 
1. #1943: "50$3" 
A label where control comes when the ZT data base is not found. 
3. #1944: "RETURN" 
When control comes to 50$ it just returns and no further action is 
taken. 


6.3 ZTTBL.MAC: .IDENT /V4.00/ 


This file contains the driver dispatch table and some routines which 
are called when the driver is either loaded or put online etc. 


1. Topic: Naming conventions. The start of the dispatch table should start with 
the device's nmemonic 'ZT'. 


Line numbers: 61 and 141. 


Changes in the existing code: label names changed. 
1. #61: instead of "S$TTTBL::" it is now "$ZTTBL?::" 
2. #141 instead of "$TTTBE::" it is now "$ZTTBE::" 


Additions: none. 
2. Topic: Addition of the interrupt entry points in the dispatch table. 
Line numbers: 135-139 After "Y'X'CTBP:: ...." 


Changes in existing code: just added the interrupt entry points for the 
new controller and in the end so it will not affect the software if 
new controllers are added. 


Additions: 
1. from #135-139 the following is added: 


ASCII /2T/ 
WORD $ZTINP 
-WORD $ZTOUT 
-WORD 0 
ZTCTBP::.WORD 0 


6.4 ZTTAB.MAC: .IDENT /02/ 


This file contains the data base for the ZTDRV and is coded in such a 
way that it will automatically asswemble for RSX-11M or RSX-11M-PLUS systems 
and generate the required database for that particular system. 

This section describes the type of data base selected for the pseudo 
terminal driver and gives the appropriate reasons and also describes the fields 
of the data base and their static initialized values. 


1. CTB (for RSX-11M-PLUS only): 


One CTB describes the type of the controller used - the DT-1l - whose 
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name is 'ZT' (same as the device name). 
It's different fields are: 


L.ICB 
L.LNK 
L.NAM 
L.DCB 
L.NUM 
L.STS 
L.KRB 


interrupt control block - nonexistant. 
link to next is 0 as only one controller. 
eASCII /ZT/ 

pointer to the DCB 

number of controllers = 8 

status = 0 

table of all the 8 KRB address. 


2. DCB (for both M and M+): 


One DCB exists to describe the type of the device attached to the 
controller. The fields are as follows: 


D.LNK 
D.UCB 
D.NAM 
D.UNIT 
D.UCBL 
D.DSP 


D.MSK 


D.PCB 


--> 


link field is 0 as driver only supports one device type. 
pointer to the first UCB. 

eASCII /ZT/ 

lowest and highest unit nos. 

length og the UCB's 

pointer to the driver dispatch table now null but later 
initialized by the LOA task. 

function masks - has all the function codes supported 
by the TTDRV plus two function codes IO.INP and I0.OUT 
whose mask bits are 13 and 14 respectively. 

PCB address of the partition in which the driver will be 
loaded - filled by the LOA task. 


3. UCB (for both M and M+): 


One UCB exists for each unit attached to each controller. Here we have 
one unit per controller. The fields are initialized as follows: 


U.UAB 
U.MUP/U. 


U.LUIC 
U.OWN 


U.DCB 


U.RED 
U.CTL 


U.STS 
U.UNIT 


U.ST2 


U.CW1l 


--> 
CLI 


(for M+ only) User account block address - not used. 


--> mutliuser protection/CLI address used by the main driver 


code. 

login uic - initialized to zero - used by the main code. 
owning terminal's UCB address if device alocated. 
initialized to zero here. 

back pointer to the DCB. 

redirect UCB address - here redirected to itself. 
control flags: 

UC. .ATT!IUC.PWF!UC.KIL!UC.QUE 

Control comes to the driver whenever there is a request 
for attaching the terminal(UC.ATT), on powerfailure 
(UC.PWF), for an IO KILL requests(UC.KIL), and during 
a normal request the packet is not queued to the 
driver's internal queue as task context is required to 
relocate user specified buffers(UC.QUE). 

US.OIU - initialized as output interrupt unexpected. 
Physical unit no. i.e. the number of the unit w.r.t. 
the ones connected to one controller - here it is 0. 

0 for M and US.OFL for M+. For M+ unit is initialized 
as being offline and the CON task makes it online. 
DV.REC!IDV.CCLIDV.TTY 

This device is a record oriented device(DV.REC), also 
it is a carriage control device(DV.CCL) and it is a 
terminal device(DV.TTY). 
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U e CW4 eS 
U.SCB ==> 
U.TUX --> 
U.TSTA+2 --> 
U.TSTA+4 --> 
U.TSTA+6 --> 
U.UIC ==> 
U.TLPP <--> 
U. TFRQ --> 
U.TCHP --> 
U. TTYP --—> 
U. TMTI --> 
U.TTAB --> 
U.CTYP <--> 
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U2.LOG!U2.CRT!U2.LWC!U2.RMT 

The unit is not loggid in(U2.LOG), the unit is a CRT 
terminal(U2.CRT), it is set to lower case(U2.LWC) and 
it is a remote terminal(U2.RMT) so that modem facilities 
can be availed of. 

0 

80. The default buffer size of the terminal before 
wrap around takes place. 

SCB address 

0 - attached task's TCB address - run time parameter. 
pointer to the UCB extension - 0 - initialized at 
initialization time. 

unit status - 0. 

§2.ACR!S2.FLF 

Automatic carriage return and forced line feed. 
S3.TAB need for type-ahead buffer. 

0 

(for M+ only) 0. 

lines per page = 24, 

0 

0 

0 

0 

(for M only) 0. 

terminal type 0 - unknown. 

modem timer 0. 


address of the type-ahead buffer - 0 - initialized at 


the initialization time. 
(for M only) = YTINDX - the controller type. 


4. SCB (for RSX-11M only): 


There is one SCB for one unit since each unit operate independantly 
and have different contexts at the same time. This requires separate 
SCB's to store thier run time contexts. The different fields are: 


5.LHD 


S.PRI 
S.VCT 
5.ITM 
S.CTM 
5.CON 


5.STS 
5.CSR 
5«PKT 
S.FRK 


--> 


O and start of the SCB in the two words resp. 

This is the I/O queue list head which is so initialized 
but later used by the system and the driver. 

Priority of this device —- PR5 

interupt vector address by 4. Here 0. 

initial time out count - 5. 

current time out count - 0. 

controller index ~ the number of the controller of the 
same kind. 

) 

CSR address - 0. 

address of the I/O packet of the currently active I/O. 
Fork link word - 0. 


5. Contiguous KRB/SCB (for M+ only): 


The ZIDRV requires a contiguous SCB and KRB because only one unit is 
supposed to be connected to a controller and in this case context would 
have to be saved for only one unit at a time which requires only one 
SCB and one KRB for the controller. In the M+ I/O philosophy, in such a 
case pool space is saved by avoiding two separate KRB's and SCB's by 
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making them contiguous and in this case some fields become common to the 
the KRB both. The fields are as follows: 


SCB and 
K.PRM 
K.PRI 
K.VCT 
K.CON 
K.1I0C 
K.STS 


K.CSR 


K.OFF 
K.HPU 
K.OWN 


K.CRQ 


K.FRK/S 
S.KS5 
S.PKT 
S.CTM 
S.ITM 
S.STS 
S.ST3 
S.ST2 
S.KRB 


6.5 ZTMAC.MAC: 


--> 


» FRK 


--> 


device dependent but here the controller type - YTINDX. 
priority — PRS. 
vector address - Q. 


-controller index - for unit n it is n * 2. 


I/O count for the controller - 0. 

status - KS.OFL - controller is offline, initially, till 
the CON task makes it online. 

CSR address = 164000 the CSR for the EXOS board. This 

is initialized even though it isn't required because 

the CON task probes into the CSR to see if controller is 
present or not. The EXOS device has to be present if the 
ZTDRV has to become online - hence the initialization. 
As an improvemtent this field should be initialized to 
the label ZECSR which will be defined during task 
building time of the ZTDRV and its value will depend on 
the actual CSR of the target system. 


offset to the UCB table - 0. 

0 

Owning UCB address. Initialized as the corresponding 
UCB address. 

Controller request queue listhead 0 and address of the 
SCB which is .-2 

Fork block - 0's. 

APR5 of the driver when it calls $FORK 

0 

0 

5 initial time out count. 

0 

0 

S2.CON - indicates that the SCB and KRB are contiguous. 
address of the corresponding KRB. 


This is the assembly prefix file for the ZTDRV. 


1. Topic: Initialization of some constants used during the assembly time. 


Line numbers: 40-45 After The ".MCALL UCBDFS...." 


Changes from the existing code/data structures: none. 


Additions: 
1. #40 


"DS$T11 = 10" 


The controller DT-11 is recognized throughout the ZTDRV by this 
symbol and its value indicates the number of such controllers 
existant. 


2. #41 
The 
3. #43 
The 
4. #44 
The 


"TO.INP = 5400" 


input interrupt I/O function code. 


"TO.OUT = 6000" 


output interrupt I/O function code. 


"TO.TEL = 177000" . 


pseudo function code for telnet requests to the board from the 
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ZTDRV. ('pseudo' because it is not within the allowed 32 legal 
function codes but it's purpose is not for the system but local to 
the communication between the ZTDRV and the ACP. Since the system 
is not comming into the picture (DRQIO) it can be initialized as 
it is. 

5. #45 3 "TS.HNG = 176000" 
The pseudo function code for the Hangup request to the board. Since 
this request is to be handled differently by the ACP (different from 
the normal output data TSWRITE requests), it is made into a separate 
pseudo function code. 


2. Topic: Modem support 
Line number: 82 After ".IIF DF PSSGEN,..." 


Changes from the existing code: 
1. #82 : " IIF NDF D$$LMD DS$$LMD = 0" 
D$$LMD, which indicates the modem support for the DLV11-E controller is 
forcefully defined to include the modem support routines in the ZTDRV 
code at assembly time. 
It is suggested that instead of forcefully defining D$$LMD, to inturn 
define TS$SMOD, TS$MOD should be defined forcefully as follows: 
after the line where TS$$MOD might get defined in current line number 84, 

" LIF NDF T$$MOD T$$MOD = 0" 


7. IMPROVEMENTS AND ENHANCEMENTS: 
The areas under which some improvement can be made in the ZTDRV are: 
7.1 CALLING THE ZTDRV DIRECTLY AND NOT VIA QIO'S: 


Some code changes could be made to somehow get the control into the 
input and output interrupt entry points directly and not via QIO's from the 
ACP. A lot of investigation into the interrupt handling of the executive would 
be required for the purpose. If a method to do so is found then it will speed 
up the telnet driver manifold and also reduce the size of the ACP. 

The best way to do this would be to find the input/output interrupt 
entry point addresses and then load the APR 5 with the APR 5 value stored in the 
PCB for the ZTDRV and then call those routines directly. This calling cannot be 
done inside the ACP or the ZEDRV since they are mapped by the APR 5. It will 
have to be done from inside the executive by first calling a routine in the 
executive which does this dispatching to the input/output interrupt entry 
points. Hence, the problem is to smuggle in a routine into the executive!! 

How to do this??? 


7.2 SOME DEBUGGING: 


The commented instructions in the routine INIT:: in the file ZTDAT.MAC 
cause problems while loading the driver. One has something to do with the fork 
block and the other with the clock block (refer to the maintainance guide). 
After commenting them there weren't any problems faced so investigation is 
required as to why the problems were caused. The problems of the clock block 
and the fork block have been solved but the one for the UCB queue is still not. 
The ZTDRV uses the TTDRV's UCB queue and some method must be applied to allocate 
the UCB queue for ZTDRV from the system pool and deallocate it when the driver 
is unloaded. For the clock block, which is allocated from the system pool when 
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the driver is loaded (for RSX-11M systems) or when it's first controller is put 
online (for RSX-11M-PLUS systems), it is never deallocated for the RSX-11M 
systems because control never comes to the driver while it is being unloaded. 
But for the RSX-11M-PLUS systems it is deallocated when the driver receives 
control while putting the controller offline. This means that the ZTDRV for the 
RSX-11M systems can never be unloaded (only if the system is re-booted) but for 
the RSX-11M-PLUS systems it can be unloaded. 


7.3 LOADING THE DRIVER TWICE FOR THE RSX--11M SYSTEMS: 


This problem is faced because the driver is called at the power fail 
entry point while loading it before the data base is made resident into the 
system pool. The INIT routine checks in the device tables if ZT is present or 
not. Since it does not find ZT data base during the virgin initialization of 
the driver, the local pool is not allocated and initialized and due to this 
all the system pool is eaten up. If the driver is loaded once and then again, 
the second time around it does find the data base and initializes the local 
pool. This double loading and unloading could be avoided by just loading the 
driver once and then as soon as the first QIO comes, it would also initialize 
the local pool, if it wasn't already done so. This could mean a lot of changes 
in the ZTINI.MAC file and hence the maintainance would become more difficult. 
Hence, the present scheme is good enough unless there is some way out in the 
initialization time only (??7). 

For RSX-11M-PLUS systems this is not a problem because when INIT:: 
is called the data base is already resident as it is called while making the 
controller online AFTER the driver is fully loaded. 

During the starting time for the network software the ZTDRV can be 
loaded twice and unloaded once to initialize the local pool. The first time it 
is unloaded the data base is not yet put in the system pool so the clock block 
is also not allocated at that time. It is only allocated when the data base is 
found in the system pool. 


7.4 ABOUT THE UCB QUEUE: 


The $TTUQ data structure, as defined in the file SYSTB.MAC, is for the 
purpose of the TTDRV. Since the code for ZTDRV is extracted from the TTDRV code, 
this data structure has remained in the ZTDRV code. The UCB queue didn't cause 
any problems even though it is meant for the TTDRV since it is a link List of 
the UCB addresses and this link List was being shared by both the TTDRV and the 
ZTDRV which turns out to be O.K. This is definitely not advisable and the 
ZTDRV's own data structure - $ZTUQ should be defined in the ZTDAT.MAC file 
exactly as the ones for the TTDRV are done. But the problem is that since the 
systems might just be refering to this data structure, it is advisable to 
allocate it from the system pool and store the address of the UCB queue in a 
data structure called $ZTUQ and deallocate this back to the system pool when 
the driver is unloaded (for RSX-11M-PLUS systems). 


7.6 IF TERMINAL IS ATTACHED BY A TASK THEN telnet>q FAILS TO LOGOUT USER: 


This problem most generally occurs with terminals running EDT and then 
typing the escape character and quiting. This causes the ACP to call the routine 
"bye()" and this sends a *C followed by a "BYE\r" as an unsolicited input to the 
ZTDRV. If EDT is running then it traps this “C and also the BYE command line. 
The terminal remains logged in and EDT keeps running. 

The solution to this problem is that instead of giving a “C "BYE\r" as 
an unsolicited input to the ZTRDV, a QIOW #10.HNG should be given to that unit 
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so that control will come to the modem timeout entry point of the controller 
dependent routines YTMTIM. Here the routine MHUP should be called which queues 

a BYE to the MCR for that terminal and this would cause the terminal to be 
logged out. If the user has privilege then the task might be even aborted by the 
BYE task. 


7.7 CHANGES TO BE MADE IF DEC ADDS NEW QIO CALLS: 


If DEC happens to increase the number of QIO calls to the TTDRV then 
it will affect our design if we were to upgrade the ZTDRV software. The 
following changes will have to be made to live up to this change: 


1. The value of the function codes has to be just above the last 
highest function code supported by DEC but the overall numbers of 
function codes should not exceed 32. This change will have to be made 
in the file ZTMAC.MAC. 

2. The entries of the input and output interrupt entry points in the 
dispatch table for the function codes service routines has to be the 
last ones i.e. the QPINP and QPOUT should always be the last entries 
in the dispatch table QPDSP. Changes will confine to the file 
ZTDAT.MAC. 

3. The definitions of the function codes IO INP and IO OUT will have to 
be changed in the file exqio.h. 
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THE 'ZE' DRIVER 
or 


THE EXOS DRIVER 
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eNLIST CND 

-NLIST SYM 

filename: ZEDRV .MAC 


ZEDRV: Driver code of the EXCELAN ethernet controller for 
RSX-11M on a Q-BUS/UNIBUS system. 


we we we we we we 


TITLE ZEDRV 
~IDENT /01/ 


.ENABL LC 
.MCALL HWDDF$,UCBDF$,DCBDF$,SCBDF$,TCBDF$,PKTDF$ 
HWDDF$ 
UCBDF$ 
DCBDF$ 
SCBDF$ 
TCBDF$ 
PKTDF$ 
.PSECT ABC 
ZESTART = . 
LOCAL DATA 


UCBR5 is a local storage to remember UCB address 


e@ we we we we 


9 
UCBR5: .BLKW 1 
UCBCAN: .BLKW 1 
TCBCAN: .BLKW 1 
.IF DF RS$$MPL 
.IFF 3RSS$MPL 
CNIBL: .WORD 0 
.IFTF $R$$MPL 


Driver is loadable 
Z$$E11 --> No controller 


we we we we 
rc 
oO 
ops 
N 
t 
i 
I 
Vv 


e N 
Ww 
oes 
ie 
— 
e 
ou 
~ 


Driver dispatch table 


IFT 3RSSMPL 


DDT$ ZE,Z$$E11,NEW=Y 3; generate dispatch table 
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IFF sRSSMPL 


$ZETBL: ¢ 
«WORD ZEINI 
«WORD ZECAN 
«WORD ZEOUT 
~WORD ZEPWF 


initiator entry point 
cancel entry point 
time-out entry point 
power fail entry point 


we we we we 


-ENDC 3RS$MPL 


This section contains all the I/O functions and their corresponding I/O 
codes with their value, for the ZE ethernet controller device 


we we we we 


IO.EXC = 002400 EXOS device administratve operation 


b] 
EX.INI = 0000 3 Reset and configure EXOS 
EX.STR = 0001 $ Execute EXOS process 
EX.STS = 0005 ; Read board's statistics 
EX.RST = 0006 ; Read and reset board's statistics 
EX.CNF = 0007 ; get configuration message 
EX.OPN = 0020 ; Open an administrative channel 
EX.CLS = 0021 ; Close administrative channel 
EX.POS = 0022 ; seek into EXOS's memory 
EX.SAR = 0024 ; set up an ARP table entry 
EX.GAR = 0025 ; get an ARP table entry 
EX.DAR = 0026 ; delete an ARP table entry 
EX.ART = 0027 ; add an Routing table entry 
EX.DRT = 0030 ; delete an Routing table entry 
EX.SRT = 0031 ; fetch an Routing table entry 
EX.NRT = 0032 ; fetch next Routing table entry 


TO.ACS = 003000 Socket related operations 


9 
SA.OPN = 0062 ; Open a socket for communication 
SA.ACC = 0063 ; Accept connection on a remote socket 
SA.CON = 0064 3; Connect to a remote socket 
SA.SAD = 0067 ; get socket information 
SA.CLS = 0070 ; close a socket connection 
SA.SEL = 0073 ; check possibility of I/O on socket 
SA.USL = 0210 3 kill a pending select call 
SA.URG = 0200 ; prepare for an urgent message 
SA.ROO = 0220 3 remove oob pkt from the pending List 


IO.XFR = 003400 
IX.RDS = 0000 


data transfer operations on a socket 
read from TCP stream 


we we we we we 


IX.WRS = 0001 write to TCP stream 
IX.SND = 0065 send datagram to socket 
IX.RCV = 0066 receive socket datagram 


T0.soc = 004000 real socket control operations 


9 
SO.DON = 0000 ; shutdown read/write operation 
SO.SKP = 0001 ; set keep alive 
SO.GKP = 0002 ; inspect keep alive 
SO.SLG = 0003 ; set linger time 
SO.GLG = 0004 ; get Linger time 
SO.SOB = 0005 ; send out of band 
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SO.ROB 
50.AMK 
50.SPG 
50.GPG 
50.NRD 
SO.NBO 
50.ASY 


0006 
0007 
0010 
0011 
0157 
0156 
0155 


T0.LOG = 004400 


receive out of band 

at out of band mark? 
set process group id 
get process group id 
FIONREAD 

FIONBIO 

FIOASYNC 


we we we we we we we 


we 


read error log from EXOS 


SOICTL = 56 $ size of SOictl structure 
CH.WRITE = 1 ; open channel in WRITE mode 
; 
3; ZEINI --> EXOS driver initiator entry point. 
H All functions are made control functions. As the UC.QUE bit is 
: set, the QIO directive will pass the I/O packet, instead of 
‘ queueing it, to the driver so that the user's context is not 
: lost. The driver, on receiving a packet, does some address 
; checking depending on the function, and relocates it. It 
; also rearranges the driver dependent parametersin the I/0 
; packet. Last three parameters (I.PRM+6 1I.PRM+12) are shifted to 
; to (I.PRM+12 to I.PRM+20). 
; After rearranging and relocating the parameters, the driver 
; inserts the packet into the ACP's queue and wakes it up. Hence, 
; the actual queue buils up at the ACP. 
; 
9 
3; INPUTS: When the QIO directive passes the packet to the driver, it 
; passes the following: 
9 
; Rl --> Address of the I/O packet. 
; R4 --> Address of the status control block. 
: R5 ~-> Address of the UCB of the device unit. 
; 
~PSECT ABC 
ZEINTI: 


we we 


we we we 


TST 
BNE 
MOV 


we 


folowing four statements are coded temporarily to keep the 
address of any UCB stored in the local variable UCBRS so 
that on entry at the interrupt entry point the TCB address 
of the ACP can be found; 


UCBR5 ; test whether it is already initialised 
10$ ; already initialised 
R5,UCBR5 3; move UCB address in UCBR5 
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We se wt we WE 
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shift parameter 4, 5 & 6 by two words 


MOV R1,R3 

ADD #I .PRM+12,R3 
MOV #3 ,R4 

MOV (R3),4(R3) 
TST -(R3) 

SOB R4,60$ 


70$: 


we we we we 


CMP I.FCN(R1),#I0.ACS!SA.ACC 
BEQ 70$ 

CMP I.FCN(R1),#I0.ACS!SA.CON 
BEQ 70$ 

CMP I.FCN(R1),#I0.ACS!SA.OPN 
BEQ 70$ 

CMP I.FCN(R1),#I0.ACS!SA.SAD 
BEQ 70$ 

CMPB I. FCN+1(R1),#10.S0C/400 
BEQ 70$ 

CMP I. FCN(R1),#I0.XFR!IX.RCV 
BEQ 70$ 

CMP I.FCN(R1),#10.XFR!IX.SND 
BNE 100$ 

TST I.PRM+4(R1) 

BNE 80$ 

MOV #IE.SPC&377,R0 

MOV R1,R3 

JMP 500$ 


MOV 
- MOV 


(R3),RO 
R1,R3 


.IF DF ASS$CHK!M$$MGE 


MOV #SOICTL,R1 
CALL SACHKB 

BCC 90$ 

MOV #IE.SPC&377,R0 
JMP 500$ 


- ENDC 


we @e C28 we we we 


We we we we we we 


we we 


we we we we we 


we WO UO CE WE SS GE SO we We Se We we 0 


in I/O packet 


move I/O pkt address in R3 
make R3 points to param 6 
loop 3 times 

shift by two words 
decrement R3 by two 

loop 


check the following function codes whether they have the Soioctl structure 
address specified or not. If not then abort that request because that 
parameter is essential for these requests to succeed. 


is it socket accept request? 

if EQ yes 

is it socket connect request? 

if EQ yes 

is it socket open request? 

if EQ yes 

is it obtain socket address request? 
if EQ yes 

is it socket control request? 

if EQ yes 

is it a receive message request? 

if EQ yes 

is it a sebd message request? 

if NE no, so process other requests 


is Soioctl structure address there? 
if NE then yes so address check and 
relocate it. 

set illegal or no buffer error 
retrieve iopkt address 

abort request 


address check and relocate parameter #3, if any, which contains the 
address to the socket related parameters buffer 


move soictl buf address in RO 
save I/O packet address in R3 


get size of SOICTL buffer 
address check buffer byte algn 
if CC ok 

set illegal buffer error 

abort request 
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90$: CALL  $RELOC relocate SOICTL buffer 


; 
MOV R1,I.PRM+6(R3) ; move relocation bias 
MOV R2,1.PRM+10(R3) ; move displacement bias 
MOV R3,R1 ; restore I/O packet address in Rl 


; 
; address check and relocate user buffer if neccessary 
; 


100$: 
CMPB I.FCN+1(R1),#I0.XFR/400 3 is it a data transfer request 
BEQ 120$ ; if EQ yes 
CMPB I.FCN+1(R1),#I0.ACS/400 3 is it socket access request 
BEQ 160$ 3; EQ yes 
CMPB I.FCN+1(R1),#I0.SOC/400 3; is it socket control fn 
BEQ 160$ ; if EQ yes 
CMPB I.FCN+1(R1),#IO.WLB/400 3; is it EXOS memory write fn 
BEQ 1205 3 if EQ yes 
CMPB I.FCN+1(R1),#IO.RLB/400 3; is it EXOS memory read fn 
BEQ 120$ ; if EQ yes 
CMP I.FCN(R1),#IO.EXC!EX.CNF3; is it read config msg fn 
BEQ 1205 3 if EQ yes 
CMP I.FCN(R1),#IO.EXC!IEX.STS3 is it read EXOS stat. fn 
BEQ 120$ ; if EQ yes 
CMP I.FCN(R1),#IO.EXC!IEX.RST; is it read & reset EXOS stat fn 
BEQ 120$ 3; if EQ yes 
CMP I.FCN(R1),#IO.EXC!EX.SAR; is it set ARP function 
BEQ 120$ ; if EQ yes 
CMP I.FCN(R1),#IO.EXC!IEX.GAR3 is it get ARP function 
BEQ 120$ 3; if EQ yes 
CMP I.FCN(R1),#IO.EXCIEX.DAR3 is it delete ARP function 
BEQ 1205 ; 1f EQ yes 
CMP I.FCN(R1),#IO.EXC!EX.ART3 is it add an RT entry fn 
BEQ 120$ ; if EQ yes 
CMP I.FCN(R1),#IO.EXC!IEX.DRT; is it delete an RT entry fn 
BEQ 120$ 3; if EQ yes 
CMP T.FCN(R1),#IO.EXCIEX.SRT3; is it fetch an RT entry fn 
BEQ 120§ ; if EQ yes 
CMP I.FCN(R1),#IO.EXC!IEX.NRT3; is it fetch next RT entry fn 
BEQ 120$ 3; if EQ yes 
CMPB I.FCN+1(R1),#I10.LOG/400 3 is it read error log fn 
BNE 1605 ; if NE no, then fn have no buf 
120$: MOV I.PRM(R1),RO $ move user buf addr in RO 
MOV R1,R3 ; save I/O packet address 


.IF DF A$$CHK!M$$MGE 


MOV I.PRM+2(R1),R1 3 get Length of buffer 

CALL SACHKB 3; address check buffer byte algn 
BCC 1405 $ 1t CG. ok 

MOV #IE.SPC&377,RO ; set illegal buffer code 

JMP 500$ $ and abort request 


» ENDC 
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140$: CALL 
MOV 
MOV 
MOV 
MOV 


we we we 


160$: MOV 
BNE 
MOV 
MOV 
JMP 


2008: JMP 
RETU 
5008: 


CLR 
JMP 


ZECAN: The cancel I/O entry 


poi 


now queue the 


RN 


nt 


SRELOC 
I.PRM+2(R3),1.PRM+4(R3) 
R1,1I.PRM(R3) 
R2,1.PRM+2(R3) 

R3,R1 


we We we we 


shift byte count by a word 
move relocation bias 

move displacement bias 
restore address of I/O packet 


iopacket to acp and unstop it 


U.ACP(R5) ,RO 
200$ 
#IE.DNR&377,RO 
R1,R3 

500$ 


SEXRQP 


I.PRM+16(R3) 
SIOFIN 


we we we we we 


we 


we we 


get TCB address of ACP task 
if NE acp task is active 
else acp not active 

move I/O pkt address in R3 
abort request 


que I/O pkt to acp and wake it 


clear the diagnostic field 
finish I/O operation and inform 


point. The driver is called at this entry 


by the executive with the following parametrs 


UCB address 
SCB address 
Controller index 


Address of TCB of current task 
Address of active ( if any ) I/O packet 


Out of all these parameters we are only interested in the TCB 
address. In our case the I/O packet address will be zero as 
we do not remember anything in the SCB 


At this point we will create an I/O packet and fill up its 


function code , TCB and UCB fields and then queue the packet 


to ACP, which will do the rest of the work. 


we ws we we we 66 WE We VE we we we we OO O88 Oe we 


ZECAN: 
MOV 
MOV 
MOV 
CALL 
MOV 
MOV 
MOV 
MOV 
MOV 


R5 ,UCBCAN 
R1,TCBCAN 
#I.LGTH,R1 

$ALOCB 
#IO.KIL,1I.FCN(RO) 
TCBCAN,R5 
R5,1.TCB(RO) 
UCBCAN,R5 
R5,1.UCB(RO) 


we we we we we we we we we we 


CANCEL IO ENTRY POINT 

save UCB address 

save TCB address of current task 
Allocate an I/O packet 


move function code 

get TCB address of current task 
set TCB address 

get UCB address 

move UCB address to packet 
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MOV 
MOV 
JMP 


$ZELOA/ZEPWF 


Se WO We WE CO SE UO WO 


.IF DF 
ZEPWF: 
$ZEUNL: 

RETURN 
$ZELOAS : 

.IFF 
ZEPWF : 

.ENDC 

wIF DF 


NOP 


MOV 


OFFSET = LOCPOOL - ZESTART 


MOV 
ASH 
BIC 
ASH 
BIC 
ADD 


MOV 
MOV 


RETURN 


» ENDG 


ZEOUT: 


»IF DF 


ZEKRB: 
ZEUCB: 


RO,R1 
U.ACP(R5),RO 
SEXRQP 


RSSMPL 


3RS$MPL 


3RSSMPL 


UNIBUS 


@#KISARS,RO 


RO,R1 
#-12,R0 
#177700,R0 
#6,R1 
#000077,R1 
#OFFSET,R1 


RO,U.ACP+2(R5) 
R1,U.ACP+4(R5) 


; UNIBUS 


RSSMPL 
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we we we 


we 


we we we we we we we 


we we 


we 


we we 


set Rl with packet address 
set RO with ACP address 
Q pkt & wakeup ACP 


The loadable driver/power fail entry point is entered upon by the 
Executive. The 22-bit physical start address of the local pool is 
calulated and stored in the UCB. This setup is only required for 
software running on the UNIBUS machines. 


breakpoint for XDT 


get start of driver code 


copy start of driver code 

get lower 6-bits of hi-order addr 
mask out remaining high bits 

get upper 10 bits of lo-order address 
mask out remaining bits 

get the start of driver's local pool 


save hi-order physical address and 
lo-order physical address in UCB 


time-out entry point 


controller on/off Line entry point 
unit on/off Line entry point 
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- ENDC 


RETURN 


Oe we We WE CEU CO VE UH SS HO 


sema:: .word 177776 


S$ZEINT:: 
INTSVS ZE,PR4,Z$$E11 
sec 
ror sema 
bec 10$ 
return 

108: 
MOV UCBR5,R5 
CALL SFORK 
MOV UCBR5,R5 
MOV U.ACP(R5),RO 
call SEXRQU 
mov #177776,sema 
RETURN 


ZESIZE = . - ZESTART 
-IF DF UNIBUS 
LEAVE: .BLKW 1024. - ZESIZE 
LOCPOOL: : 
« BLKW 1 
»ENDC 


«END 


we we we we we 


we 


we we 


we we we we 
we we we we 


ZEINT: ZE device driver entry point. 


This is a very uncommon way to to handle device interrupts. As 
the EXOS device processes all the requests in a pure 
asyncchronous way, it is very handy to process the interrupt 
service in the ACP which actually has all the necessary 
information. Hence, the driver's job is to deflect the interrupt 
to the ACP by just unstopping it if it is sleeping. 


initial value of semaphore 


interrupt entry point of ZE device 
generate interrupt save code 

set carry bit 

shift to set semaphore 

semaphore OK 

return and dismiss interrupt 


get address of UCB befor calling FORK 
create system process 


unsave UCB address into R5 

move address of the TCB of the ACP 
request ACP execution after inserting 
the I/O packet 

release semaphore 


size of zedrv code area 


leave total of lkw before start of 
driver's local pool 


start of local buffer pool 
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«NLIST 
«NLIST 


filename: 


ZETAB: 


ws ws we we we we 


«TITLE 
» [DENT 


; System 


»MCALL 
UCBDF$ 
HWDDF$ 
SCBDF$ 
UCBDF$ 


ePSECT 


-GLOBL 
»ENABL 


$ZEDAT? : 


oIF DF 


.WORD 
$CTBO: 
.WORD 
ASCII 
. WORD 
.BYTE 
.BYTE 
SZECTB: t 
.WORD 


CND 
SYM 


ZETAB.MAC 
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The database of the ZE driver is defined as follows. 


ZETAB 
/01/ 


Macro Calls 


UCBDF$ , HWDDF$ , SCBDF$, UCBDF$ 


$$$ 


$ZEVEC 
ie 


RS$MPL 


we 
N 
@ 
Od 
a 
wo 


sRSSMPL 


e701 
.ZEO 
/ZE/ 
0,0 


we 


we we we we ws 


we 


we 


we we we we 


start of the ZEDRV device table 


L.ICB 


L.~LNK end of CTB list for ZE 
L.NAM controller's name 
L.DCB 

L.NUM no. of controllers 
L.STS status 


L.KRB 


loadable ZEDRV 


D.LNK link to next DCB 

D.UCB pointer to first UCB 

D.NAM device name 

D.UNIT Lowest and highast unit number 
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WORD 
- WORD 


we 


wet We we We WE 


we WE 


-» WORD 
«WORD 
«WORD 
WORD 
«WORD 
«WORD 
«WORD 
- WORD 
«WORD 
ZEST = . 
» WORD 
-ZE03: 
«WORD 
«WORD 
oLF DF 


» BYTE 


~IFF 


-BYTE 


-ENDC 


BYTE 
- BYTE 


-IF DF 


»BYTE 


~IFF 


» BYTE 


- ENDG 


» WORD 


«WORD 


ZEND-ZEST 
$ZETBL 


001777 
001747 
000030 
000000 
000000 
000000 
000000 
000000 
0 


0 


-ZC0 
eZ 


UNIBUS 


UC.KIL!UC.QUE!UC.PWF!UC.NPR 


3 UNIBUS 
UC.KIL!UC.QUE! UC. PWF 
;UNIBUS 


0 
0 


RSS$MPL 
US.RED!US.PUB!US.OFL 
sRSSMPL 
US.RED!US.PUB 
sRSSMPL 


DV.EXT 


e 
? 


o 
9 


we we we we we we we we we 


we we 


we we 


we 


we we we we we 


D.UCBL lenght of UCB 
D.DSP pointer to device dispatch table 


The following tables define all the legal functions and their subdivisions 

in terms of NO-OP's, ACP, CONTROL, TRANSFER functions. Apart from IO.KIL, 
IO.ATT and IO.DET, all other functions are made control functions. With 

the UC.QUE bit in the U.CTL of the UCB set, the QIO directive will pass the 
I/O packet to the driver without queueing, such that user's context is saved. 
The I0 ATT & IO DET functions are made NO-OPS. 


D.MSK legal functions 0 - 15. 
control functions 0 - 15. 
NO-OP functions 0 - 15. 
ACP functions 0 - 15. 


legal functions 16. - 31. 
control functions Loe 3s 
NO-OP functions 16<6.3=-31% 
ACP functions 16, = 31,5 


D.PCB PCB address of driver partition 
start of UCB 
U.OWN owning terminal's UCB address 


U.DCB back pointer to DCB 
U.RED redirect pointer 


device is an NPR device 
control flag byte, call on IO.KILL 
and pass packet to driver 


we we we 


control flag byte, call on IO.KILL 
and pass packet to driver 


we we 


U.STS status flag U.STS 
U.UNIT -- does not apply 


U.ST2 2nd status flag - unit cannot be 


redirected 

U.CWl characteristic word 1 --> device 
is connected to 22-bit direct 
addressing controller 

U.CW2 char word 2 
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ZEND=. 


SZEAt: 


$ZEO: 


«WORD 
«WORD 
«WORD 
«WORD 
« BLKW 


IFT 


» WORD 


» IFTF 


«WORD 


«IF DF 


» BLKW 


» ENDCG 


IFT 


» BYTE 
-BYTE 
- BYTE 
- BYTE 
«WORD 


WORD 
«WORD 
-BYTE 
- WORD 


WORD 
«WORD 
» WORD 
» WORD 
- BYTE 
-BYTE 
» WORD 
«WORD 
«WORD 
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0 3; U.CW3 
0 ; U.CW4 
$ZE0 3; U.SCB 
0 3; U.ATT 
3 ; U.BUF, 
3RSSMPL 

0 ; 
3RSSMPL 

0 ; U.ACP 
UNIBUS 

2 


we we 


end 


we 


PR4 ; K.PRI 
$ZEVEC/4 3; K.VCT 
0 * 2 5; K.CON 
0 ; K.IOC 
KS.OFL 3; K.STS 
5 start 
164000 3; K.CSR 
ZEA — $ZEA 3; K.OFF 
0,0 3 K.HPU 
0 ; K.OWN 
Sg a ee ee ) 
; CONTIGUOUS SCB HERE FOR ZE ; 
; Fs ee cS ccs acs he aa as ss Se le abe ts ea sa ews se t 
0,.-2 ; S.LHD 
0,0,0,0 3 S.FRK 
0 3 S.KS5 
0 3; S.PKT 
0,0 7 
0,0 ;.§,STS, 
$2.CON!S2.LOG ; S.ST2 
$ZEA 3; S.KRB 
2 ; 


char word 3 

char word 4, no buffer required 
pointer to SCB 

attached task UCB 

U.BUF+2 & U.CNT 


U.UCBX UCB extension 


TCB address of ZEACP 


storage for the staring 22-bit 
physical address of the local pool 


of UCB 


device priority 

interrupt vector by 4 
controller number times 2 
I/O count 

controller specific status 
address of KRB 

CSR address (default) 

offset to start of UCB table 
highest physical unit number 
UCB of currently active unit 


& K.CRQ 

fork block 

- KISAR5 saved here 
address of I/O packet 


S.CIM, S.ITM crnt & init. timeout cnts 


S.ST3 status bytes 


currently assigned KRB(the only) 


S.RCNT no. of words in I/O page 
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«WORD 0 ; S.ROFF offset from S.CSR to start of 
; device registers 
~WORD 0 3; S.EMB for error logging 
« BLKW 6 3; MAPPING ASSIGNMENT BLOCK 
~WORD 0 ; KE.RHB start of UNIBUS mapping 
$ register work area 
ZEA$3 $ start of UCB table (non-existant) 
H oe me aD DD SD SS SD SD DG 
; END OF KRB/SCB ; 
; Pe Feeds ode AAR ee ee OE t 
IFF sRSSMPL 
$ZEO: 
eWORD 0,.-2 ; device I/O queue listhead 
«BYTE PR4,$ZEVEC/4 ; device priority and vector 
«BYTE 0,0 $ current and initial timeout 
~BYTE 0,0 ; controller index and device status 
»WORD 0 ; CSR address 
-WORD 0 3; address of I/O packet 
« BLKW J 3; FORK BLOCK 


eIF DF UNIBUS 


- WORD 0 S.MPR not used here but $IODONE 


3 
3; checks it so we keep it 0 


MAPPING ASSIGNMENT BLOCK (FOR UNIBUS MAPPING REGISTER ASSIGNMENT ) 


2e we we 


»BLKW al 3; M.LNK - Link word 

» BLKW 1 ; M.UMRA - address of lst ass. UMR 

» BLKW 1 3 M.UMRN - no. of UMR's * 4 

~-BLKW 1 ; M.UMVL - lo 16-bits mapped by ist UMR 
-BLKB 1 3; M.UMVH - hi 2-bits mapped by lst UMR 
~-BLKB 1 3; M.BFVH - hi 6-bits of phy buffer addr 
» BLKW 1 3 M.BFVL - lo 16-bits of phy buf addr 


.ENDC  3UNIBUS 
-ENDC 3RSSMPL 


SZEEND: : end of ZE data base 


we 


-2Cl = 0 ; end of DCB list for ZE: 
SCTB1 = 0 3; end of CTB list for ZE: 
- END 3; end of file ZETAB.MAC 
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PIP LB:(1,54]ZEDRV.STB/PR/OW: RWED/SY:RWED/GR:RWED/WO:R/FO 
-ENABLE DISPLAY 
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-ENABLE QUIET 

-ENABLE SUBSTITUTION 

.DISABLE DISPLAY 

-IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

-IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 
-IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 
.IFDF $VEC .GOTO 5 

~SETS $VEC '"400" 

~ASKS [::$VEC] $VEC Interrupt vector location ? [ D: 400 ] 

258 


Assemble the driver code 


@e ws we 


MAC ZEDRV=LB:[1,1]EXEMC/ML,LB:[11,10]RSXMC,SY:'<UIC>'ZEDRV 
MAC ZETAB=LB:[1,1]JEXEMC/ML,LB:[11,10]RSXMC,SY: '<UIC>'ZETAB 


-IFF $DEL .GOTO 10 
PIP ZEDRV.MAC3*,ZETAB.MAC3*/DE 


; 
; Now build the ZE (EXOS) driver. 
; 


Create the task builder input file. Ask for the interrup vector 
location use default if the installer does not want to change it. 


we we we we 


Create the input command file for the Linker 


we we we 6 


OPEN ZETKB.CMD 

»DATA LB:[1,54]ZEDRV/-HD/-MM, , ZEDRV= 
»DATA ZEDRV,ZETAB 

-DATA LB:[1,54]RSX11M.STB/SS 

-DATA LB:[1,1]EXELIB/LB 

DATA / 

.DATA STACK=0 

-DATA PAR=DRVPAR: 120000:14000 

.-DATA GBLDEF=$ZEVEC: '$VEC' 

. CLOSE 


Task build driver 


ws we we 


~IFT $NOPRE PIP LB:[1,54]ZEDRV.TSK3*/DE 
.IFT $NOPRE PIP LB:[1,54]ZEDRV.STB3*/DE 
TKB @'<UIC>'ZETKB 


9 

3 delete indirect command file 
; 

PIP '<UIC>'ZETKB.CMD3*/DE 

PIP '<UIC>'ZEDRV.OBJ3*/DE 

PIP '<UIC>'ZETAB.OBJ3*/DE 

; 
3} set protection for the driver 
; 
P 


IP LB:[1,54]ZEDRV.TSK/PR/OW: RWED/SY:RWED/GR:RWED/WO:R/FO 
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-ENABLE QUIET 

-ENABLE SUBSTITUTION 

.DISABLE DISPLAY 

.IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS «DISABLE QUIET 

-IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 
.IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 
.IFDF $VEC .GOTO 5 

~SETS $VEC "400" 

-ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

i 


Assemble the driver code 


we we we 


MAC ZEDRV=LB:[1,1]EXEMC/ML,LB:[11,10]RSXMC,SY: '<UIC>'UNIBUS, ZEDRV 
MAC ZETAB=LB:[1,1]EXEMC/ML,LB:[11,10]RSXMC,SY: '<UIC>'UNIBUS, ZETAB 


-IFF §DEL .GOTO 10 
PIP ZEDRV.MAC3*,ZETAB.MAC3*/DE 
103 
; 
$ Now build the ZE (EXOS) driver. 
3 


Create the task builder input file. Ask for the interrup vector 
location use default if the installer does not want to change it. 


e 
@¢ we we we 


; 
3; Create the input command file for the linker 
; 


-OPEN ZETKB.CMD 

DATA LB:[1,54]ZEDRV/-HD/-MM, , ZEDRV= 
DATA ZEDRV, ZETAB 

-DATA LB:[1,54]RSX11M.STB/SS 

-DATA LB:[{1,1]EXELIB/LB 

-DATA / 

»-DATA STACK=0 

»~DATA PAR=DRVPAR: 120000: 14000 

»DATA GBLDEF=$ZEVEC: '$VEC' 

- CLOSE 


Task build driver 


we we we 


.IFT $NOPRE PIP LB:[1,54]ZEDRV.TSK;*/DE 
.IFT $NOPRE PIP LB:(1,54]ZEDRV.STB3*/DE 
TKB @'<UIC>'ZETKB 


delete indirect command file 


® we ws 


9 

PIP '<UIC>'ZETKB.CMD3;*/DE 
PIP '<UIC>'ZEDRV.OBJ3*/DE 
PIP '<UIC>!ZETAB.OBJ3*/DE 


set protection for the driver 


; 
; 
PIP LB:(1,54]ZEDRV.TSK/PR/OW: RWED/SY:RWED/GR:RWED/WO:R/FO 
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PIP LB:[1,54]ZEDRV.STB/PR/OW: RWED/SY:RWED/GR: RWED/WO:R/FO 
-ENABLE DISPLAY 


Oct 17 16:18 1985 tkb.cmd Page 1 


zedrv/-hd/-mm, zedrv/-sp, zedrv= 
zedrv,zetab,1b:(1,54]rsxllm.stb/ss 
Lb:(1,lJexelib/1b 

/ 

stack=0 

par=drvpar: 120000: 14000 
gbldef=$zevec: 400 

// 
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$ 
-) 
$ 
$ 
5 


SY SY MEA IAA PUA DNHDNDPOHKPAHPOMN AHN HAOKHMOOODOOGTOrOMmw 


skeleton for bld.com 


! 
! 
! 
if "''pl'" .nes. "2" then goto doit 
typ sys$input 


command file to build the task image 
required command files: None 
required logical names: None 


required parameters: 


pl - default directory (default - current directory) 
required files: None 
required symbols: None 


exit 

doit: 

sv = £$verify(1) 

on error then $ goto abnormal exit 

assign nowhere sys$print 

if ""'pl'" .eqs. "" then $ pl = "''£$logical("sys$disk")'''f$directory()'" 
set def 'pl' 

show def 

! 

! Put your own commands here 

! 

! Make assignment for QBUS RSX11M 

assign draQ:[qbusllm.] 1b: 

open/write lnkdrv tkb.cmd 

write Inkdrv "zedrv/-hd/-mm,zedrv/-sp,zedrv=" 
write Inkdrv "zedrv,zetab,1b:[1,54]rsxllm.stb/ss" 
write Inkdrv "Lb:[1,1lJexelib/1b" 

write Inkdrv "/" 

write Inkdrv "stack=0" 

write Lnkdrv "par=drvpar:120000:14000" 

write Inkdrv "gbldef=$zevec:400" 

write inkdryv "//" 

close lnkdrv 

tkb @tkb.cmd 

delete tkb.cmd; 

! 

! Unibus M 

deassign lb 

assign draO:(unillm.] 1b: 

open/write Lnkdrv tkb.cmd 

write Inkdrv "zedrvuni/-hd/-mm,zedrvuni/-sp,zedrvuni=" 
write Lnkdrv "zedrvuni,zetabuni,1lb:(1,54]rsxllm.stb/ss" 
write Inkdrv "lb:([1,llexelib/1b" 

write lnkdrv "/" 

write Inkdrv "stack=0" 

write Inkdrv "par=drvpar:120000:14000" 
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$ write lnkdrv 
write lnkdrv 
close lnkdrv 
tkb @tkb.cmd 


deassign lb 


! Unibus 


$ 
$ 
$ 
$§ delete tkb.cmd3 
$ 
$ 
$ 


"“obldef=$zevec:400" 
as BS ess 


MPlus 


$ assign _dra0:[unillmp.] 1b: 
$ open/write Inkdrv tkb.cmd 


$ write Lnkdrv 
$ write Lnkdrv 
$ write lnkdrv 
§ write Inkdrv 
$ write Lnkdrv 
$§ write lnkdrv 
$§ write Lnkdrv 
write lnkdrv 
close lnkdrv 
tkb @tkb.cmd 


deassign 1b 
exit l 


deassign lb 
exit 2 


tf 4 iP OF Ot PS 


"zedrvup/-hd/-mm, zedrvup/-sp,zedrvup=" 
"Zedrvup,zetabup,1b:[1,54]rsxllm.stb/ss" 
"1b:(1,lJexelib/1b" 

a hs 

"stack=0" 

“par=drvpar: 120000: 14000" 
"“sbldef=$zevec:400" 

sie de ou 


delete tkb.cmd3 


abnormal exit: 
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skeleton for cmplbr.com 


on 


! 

! 

! 

if "''pl'" .nes. then goto doit 
t 


yp sys$input 
command file to compile and Link the Library 
required command files: None 
required logical names: None 


required parameters: 
pl - default directory (default - current directory) 


required files: 
none 


required symbols: 
none 


Note: 
You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include Libraries 

exit 

doit: 

sv = f$verify(1) 

on error then $ goto abnormal exit 

assign nowhere sys$print 

! 

! now make assignment for RSX11M Q-bus version 

! 

assign dra0:[qbusllm.] 1b: 

if "''p1™ .eqs. "" then $ pl = '"''£S$logical("sys$disk")'''f£$directory()'" 
set def 'pl' 

show def 

show logical 1b 

mac zedrv,zedrv/-sp=1b:[1,1llexemc/ml,1b:[11,10]rsxmc,sy:[1,2]zedrv 

mac zetab,zetab/-sp=1b:[1,llexemc/m1,1b:[11,10]rsxmc,sy:[1,2]zetab 

! 

! now for unibus 

! 

assign  dra0:[unillm.] 1b: 

show logical lb 

mac zedrvuni,zedrvuni/-sp=lb:[1,1]exemc/m1,1b:[11,10]rsxmc,sy:[1,2]unibus,zedrv 
mac zetabuni,zetabuni/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,2]unibus,zetab 
! 

! now for unibus, M-Plus 

! 

assign draO:[unillmp.] 1b: 

show Logical lb 

mac zedrvup,zedrvup/-sp=1b:[1,1]lexemc/m1,1b:{11,10]rsxmc,sy:[1,2]unibus,zedrv 
mac zetabup,zetabup/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,2]unibus,zetab 
exit 1 

abnormal exit: 

exit 2 


MS UP UI ETE TA PA PAPAMAPDOHHOHHNOMDOH VOM 
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$ 
$ 
$ 
$ 
$ 


PAA PAD AHAAADOHKHKOKN OOOH HTD 


' 
! skeleton for deliver.com 

! 

if "''pi'" .nes. "2?" then goto doit 
typ sys$input 


command file to copy the deliver files to manufacturing area 


You should modify this file to copy the deliverables to 
exos$mfg:[target directory] 


required command files: None 
required logical names: None 
exos$mfg - pseudo disk for deliverables 


required parameters: Noe 
required files: None 
required symbols: None 


exit 

doit: 

sv = f$verify(0) 

on error then § goto abnormal exit 
assign nowhere sys$print 


show def 

! 

! Put your own commands here 

! 

copy/log zedrv.mac exos$mfg:[rsx] 

copy/log zetab.mac exos$mfg:[rsx] 

copy/log blddrv.cmd exos$mfg:[rsx] 

copy/log install.cmd exos$mfg:[rsx] 

copy/log net. exos$mfg:[rsx]net. 

copy/log hosts.net exos$mfg:([rsx] 

copy/Log hostlocal.net exos$mfg:[rsx] 

copy/Log tapeins.cmd exos$mfg:[rsx] 

copy/Log 8030.h1p exos$mfg:[rsx] 

copy/log blduni.cmd exos$mfg:[rsxunibus ]blddrv.cmd 
copy/log instuni.cmd exos$mfg:[rsxunibus ]install.cmd 
copy/log tapeuni.cmd exos$mfg:[rsxunibus ]tapeins.cmd 
exit l 

abnormal exit: 

exit 2 
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THE SOURCE CODE FOR THE ACP 


1. The Include *.h files. 

2. The Source *.c files. 

3. The Assembly routine *.mac files. 
4. The Indirect command *.cmd files. 
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/* 


* filename: 


*/ 


BRDIOCTL.H 


* This file defines all the equate symbol for the administrative 
* device's ioctl commands. Some of them are passed as it is to the 
* board, hence should not be modified. 


#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define 


#define 
#define 
#define 
#define 


BRDINIT 


BRDSTART 
BRDGSTAT 
BRDRSSTAT 
BRDGCONF 


BRDADDR 


BRDSARP 
BRDGARP 
BRDDARP 


BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 


(0) 
(1) 
(5) 
(6) 
(7) 
(10) 


(20) 
(21) 
(22) 


(23) 
(24) 
(25) 
(26) 


Reset EXOS devive */ 
start exos running */ 

get board statistics */ 
get/reset board statistics*/ 
get configuration msg */ 
set exos memory locator */ 


X/ 
% / 
%/ 


%/ 


set an ARP table entry 
get an ARP table entry 
delete an ARP tbl entry 


add routing table entry 


/* delete RT entry */ 
/* show RT entry */ 
/* display RT entry */ 


/* Data structure used to send board statistics to host */ 


struct EXbdstats { 


33 
/* 


long 
long 
long 
long 
long 
long 
long 
long 


xmt 5 


excess coll; 
Late coll; 


tdr3 
rev; 


align err} 


cre err; 


lost err; 


/* 
/[* 
/* 
/ ve 
/* 
/* 
/* 
/* 


frames transmitted successfully */ 
xmits aborted due to excess coll */ 
xmits aborted due to late coll */ 
time domain reflectometer */ 

error free frames received */ 
frames rcvd with alignment err */ 
frames rcvd with cre errors */ 
frames lost due to no buffers */ 


/* other bits of info about the board */ 


short 
short 
short 


fw release; 
sw release} 
hw release} 


/* 
/* 
/* 


firmware release */ 
software release */ 
hardware release */ 


* Toctl structure for manipulation of the ARP codes 


ef 


struct EXarp ioctl { 


struct sockaddr 
struct sockaddr 


Long 
35 


arp pa; 
arp ha} 


arp flags; 


/[* 
/* 
/* 


protocol address */ 
hardware address */ 
flags */ 
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#define ATF COM 2 /* 
#define ATF PERM 4 ik 
#define ATF PUBL 8 /* 


2 
completed entry %/ 
permanant entry %/ 


respond for another host 


xe / 
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#define MAXCHANNEL 40 


#define CH FREE 0 
#define CH EXOS 1 
#idefine CH SOCKET 2 


#define CH WRITE 0x01 
#tdefine CH PRIV 0x02 
#define CH_READ 0x00 
#define CH MCLOSE 0x80 
struct channel { /* channel control block */ 
Uchar ch type; /* type of channel free, socket & etc */ 
Uchar ch flag; /* protection flags %/ 
Ushort ch tcb; /* tcb address of the associated task */ 
Ushort rundn_cnt3 /* I/O rundown count on this channel */ 
union { 
Ushort ch soid; /* socket id returned by the board */ 
eae exos paddr ch_addr3 /* memory locator of the Exos board */ 
ch u$ 


33 
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/* 

* filename: DEFINES.H 

x / 
#define PKT io _pkt->i_prm 
#define ex hd mp->nm_u.msg hd 
#define ex mg mp->nm_u.msg msg 
#define ex dl mp->nm_u.nm dload 


‘#define ex str  mp->nm_u.nm_ start 
#define ex_cmd mp->nm_u.nm_cmd 
#define ex pkt mp->nm_u.nm packet 
#define ex ctl mp->nm_u.nm ioctl 
#define ex sel mp->nm_u.nm select 
#define ex _oob mp->nm_u.nm hasoob 
#define ex tel mp->nm_u.nm telnet 


/* 

* following are some functions defined as macros 

*/ 

#define sametask(chn) ((ch_des[chn].ch tcb==io pkt->i tcb) ? 1 : 0) 
#define inrange(chn) (((chn > 0) && (chn < MAXCHANNEL)) ? 1 : O 
#define writeprv(x) ((ch_des[x].ch flag&(CH PRIV|CH WRITE) )==(CH P 


) | 
: _PRIV|CH WRITE) ) 
#define ch mfor close(chn) ((ch des[chn].ch flag & CH MCLOSE) ? 1 : 


0) 

/* dalpkt is defined to be dealoc b after RTH merger */ 

#define dalpkt(p) dealoc b(p, sizeof( struct iopkt)) 

/* following is just a dummy structure to be replaced by the actual one */ 


struct rtentry{ 
char rt(40]3 


bs; 
#tdefine NOREPLY Oxl 
#define UNSELECT 0x2 


/* 

* the following definitions are included from the actual soioctl.h file 
* used by the board code and other systems. As the SOIOCTL definitions 
* formed by these macros cannot be passed as io subfunction codes, the 
* final code for the board is made in the acp using these macros. 


x / 


#define IOXFIO(y) (('£' << 8) | y) 
#define IOXSIO(y) (('s' << 8) | y) 


Sep 9 07:48 1985 


/* 


* filename: EXIOCMD.H 


¥/ 
/* 


exiocmd.h Page 1 


* following are the requests send to the board 
%* - host to board request must be less than 64 3 
* flags takes up upper two bits. 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 


#define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 


/* unsolicited messages from board */ 


#define 
#define 
#define 
#define 
#define 


#define 


#define 


#define 


SOSOCKET 
SOACCEPT 
SOCONNECT 
SOSEND 
SORECEIVE 
SOSKTADDR 
SOCLOSE 
SOVERIFY 
SOIOCTL 
SOSELECT 


NET DLOAD 
NET ULOAD 
NET START 


NET GSTAT 
NET RSTAT 


NET _GCONF 


NET SARP 
NET GARP 
NET DARP 


NET ADDRT 
NET DELRT 
NET SHOWRT 
NET DISPRT 


SOSELWAKEUP 
SOHASOOB 
NET PRINTF 
NET PANIC 
IM ALIVE 


TSCOMMAND 


REPLY OK 


NM MAGIC DATA 


(50) 
(51) 
(52) 
(53) 
(54) 
(55) 
(56) 
(57) 
(58) 
(59) 


0 
1 
2 


BRDGSTAT 
BRDRSSTAT 


BRDGCONF 


BRDSARP 
BRDGARP 
BRDDARP 


BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 


(80) 

(81) 
100 
101 
102 


40 


0x00 


0x80 


net download */ 
net upload */ 


start downloaded stuff*/ 


read net statistics */ 


* read & reset stats */ 


get configuration msg*/ 
set ARP */ 
get ARP */ 
delete ARP */ 
add RT entry */ 
delete RT entry */ 
show RT */ 
display RT %/ 
print out msg %/ 
oh-my-gosh ve / 
I think therfore I am*/ 
telnet request code */ 
all is well */ 
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#define MQ EXOS 0x01 /* exos own Q element */ 
#define MQ DONE 0x02 /* exos done with Q elmnt*/ 
#define MQ OVERFLOW — 0x04 /* data are too big / 
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~—, 
* 


* filename: EXOS.H 


* Data structures and associted constants definition for the EXOS-203 
* ethernet controller , compatable with 3.1 version of the net module. 


struct exos paddr{ 


Ushort base} /* segment value ¥/ 
Ushort off3 /* offset value %/ 
}3 

/* 

* General headers 

* 

*/ 


struct headers { 
/* Q or mailbox header */ 


Ushort mh Link; /* exos link address ¥/ 
Uchar mh reserved; /* not used must be 0 */ 
Uchar mh status; /* status of Q element */ 
Ushort mh length; /* length of data packet*/ 
}3 

struct messages{ /* Q or mailbox header */ 
Ushort mh Link; /* exos Link address %/ 
Uchar mh reserved; /* not used must be 0 */ 
Uchar mh status; /* status of Q element */ 
Ushort mh length; /* Length of data packet*/ 


/* header in message proper */ 


short nm soid; /* socket id */ 
long nm userid; /* seq # attached to msg*/ 
Uchar nm request; /* command to exos */ 
Uchar nm reply; /* reply from exos */ 
35 

/* 

* NET DLOAD structure 

*/ 

struct net dload{ 
Ushort mh link; /* exos Link address ¥/ 
Uchar mh _ reserved; /* not used must be 0 */ 
Uchar mh status; /* status of Q element */ 


Ushort mh length; /* length of data packet*/ 
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/* header in message proper */ 


short nm _soid; /* socket id */ 
long nm userid; /* seq # attached to msg*/ 
Uchar nm request; /* command to exos */ 
Uchar nm reply; /* reply from exos */ 
/* semantic of this structure */ 
Ushort nm_length; /* length of data % / 
long nm source} /* source address %/ 
struct exos paddr nm dest; /* destination address 
Uchar nm_ xmbyte} 
35 

/* NET START structure */ 

struct net_start{ 
Ushort mh_link; /* exos Link address */ 
Uchar mh_reserved; /* not used must be 0 */ 
Uchar mh_ status; /* status of Q element */ 
Ushort mh Length; /* length of data packet*/ 


/* header in message proper */ 


/* socket id 


short nm_soid; */ 
Long nm userid; /* seq # attached to msg*/ 
Uchar nm request; /* command to exos */ 
Uchar nm reply; /* reply from exos %/ 
short nm sal3 

short nm sa23 

33 


/* 


* the following messages all pertain to the tcp/ip/socket 
%* software which runs on the board} 


x / 


[* SOCK PKT structure: send/receive data to/from a socket 


struct Sock pkt{ 


Ushort mh link; /* 
Uchar mh reserved; /* 
Uchar mh_status3 /* 
Ushort mh length; [* 


exos link address */ 
not used must be 0 */ 
status of Q element */ 
length of data packet*/ 


/* header in message proper */ 


short nm_soid$ /* 
long nm userid; [* 
Uchar nm request; /* 
Uchar nm _reply; /* 
short nm _isaddr}3 /* 
struct sockaddr nm_saddr3 


socket id */ 
seq # attached to msg*/ 
command to exos */ 
reply from exos */ 
non-zero iff nm_sadr */ 
/* socket address 


x/ 


x / 
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long nm_bufaddr; /* 
Ushort nm count} /* 
char nm data; /* 
33 


host buffer addr */ 
byte count */ 
place for data */ 


/* Sock cmd structure: send/receive command to/from exos 


struct Sock cmd{ 


Ushort mh Link; /* 
Uchar mh_reserved}; /* 
Uchar mh status; /* 
Ushort mh length; /* 


exos Link address */ 
not used must be 0 */ 
status of Q element */ 
length of data packet*/ 


/* header in message proper */ 


short nm _soid; /* 
long nm _ userid; /* 
Uchar nm request; /* 
Uchar nm reply; /* 


socket id */ 
seq # attached to msg*/ 
command to exos %/ 
reply from exos %/ 


/* semantics of this structure */ 


short nm _isaddr; /* non-zero iff nm_saddr*/ 
struct sockaddr nm_saddr}; /* socket address 
struct sockproto nm_sproto}3 /* protocol structure 
short nm isproto} /* non-zero iff sproto */ 
short nm type} /* family with protocol */ 
short nm options} /* flags / 
short nm iamroot; /* is this priv user */ 
}3 

/* Sock ioctl structure: socket ioctl command %/ 


struct Sock ioctl{ 


Ushort mh_ link; /* 
Uchar mh_reserved; /* 
Uchar mh status; /* 
Ushort mh length; /* 


exos link address */ 
not used must be 0 */ 
status of Q element */ 
length of data packet*/ 


/* header in message proper */ 


short nm_soid; /* socket id */ 
long nm userid; /* seq # attached to msg*/ 
Uchar nm request; /* command to exos */ 
Uchar nm _reply; /* reply from exos */ 
/* semantics of this structure */ 
short nm_iocecmd; /* ioctl command %/ 
char nm iocdatal40]; /* holder for stuff x / 
}3 
/* Sock printf structure: printf/panic from exos */ 
struct Sock printf{ 
Ushort mh_link; /* exos link address ¥/ 
Uchar mh_reserved; /* not used must be 0 */ 


xe / 
x / 
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/* 
/* 


Uchar mh_status$ 
Ushort mh_length; 


status of Q element */ 
length of data packet*/ 


/* header in message proper */ 


short nm_soid; /* socket id */ 
Long nm userid; /* seq # attached to msg*/ 
Uchar nm request; /* command to exos */ 
Uchar nm _ reply; /* reply from exos %/ 
/* semantics of this structure */ 
short nm dummy; /* align to long word */ 
char nm_prdatal48]; /* printf data %/ 
35 
/* Sock select structure: select on socket */ 
struct Sock select{ 
Ushort mh_link; /* exos Link address ¥ / 
Uchar mh_ reserved; /* not used must be 0 */ 
Uchar mh _ status; /* status of Q element */ 
Ushort mh length; /* length of data packet*/ 


/* header in message proper */ 


short nm soid; /* socket id %/ 

Long nm userid; /* seq # attached to msg*/ 

Uchar nm request; /* command to exos */ 

Uchar nm reply; /* reply from exos */ 

/* semantic of this structure */ 

short nm_rw3 /* how to select (read=0/write=1 */ 
short nm_ proc} /* host proc which is selecting */ 

short nm _selcoll; /* number of select collision for host */ 
35 


* / 


/* Sock hasoob for when get out-of-band data 


struct Sock hasoob{ 


Ushort mh link; /* exos Link address */ 
Uchar mh_ reserved; /* not used must be 0 */ 
Uchar mh status; /* status of Q element */ 
Ushort mh length; /* length of data packet*/ 


/* header in message proper */ 


short nm_soid; /* socket id % / 
long nm userid; /* seq # attached to msg*/ 
Uchar nm_request;3 /* command to exos ial d 
Uchar nm reply; /* reply from exos */ 


x / 


/* semantic of this structure 


short nm sogrp} /* proc group */ 
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}3 
/* Telnet _srvr structure to hold telnet data */ 
struct Telnet srvr { 
Ushort mh link; /* exos link address % / 
Uchar mh reserved; /* not used must be 0 */ 
Uchar mh status; /* status of Q element */ 
Ushort mh_length; /* length of data packet*/ 
/* header in message proper */ 
short nm_soid; /* socket id %/ 
long nm userid; /* seq # attached to msg*/ 
Uchar nm_request}$ /* command to exos %/ 
Uchar nm reply; /* reply from exos %/ 
/* semantics of the structure */ 
Uchar nm _tsrqst; /* telnet server command*/ 
Uchar nm _tsdlen; /* data length */ 
char nm tsdata[32]; /* data buffer */ 
33 
[* 
* Format of a standard "exos-to-host" or "host-to-exos" message: 
* = this is what is linked together in a Q which both the host 
* and exos manipulates while talking to each other. 
*  —- a message contains: 
¥ ~ a header describing the state of the message and its 
¥ size 
co - an actual network message 
* - ( For the host? 
* - a link for the host to use to maintain and follow the 
¥ message queue with 
ve 
* / 


struct msg{ 
union exos u { 
struct headers msg hd}; 
struct messages msg msg} 
struct net dload nm dload; 
struct net start nm start; 
struct Sock pkt nm_ packet; 
struct Sock cmd nm_cmd} 
struct Sock ioctl nm_ioctl$3 
struct Sock printf nm_printf$ 
struct Sock select nm select; 
struct Sock hasoob nm_hasoob$3 
struct Telnet srvr nm_telnet$ 
} nm U3 


struct msg *msg Link; /* host link to next msg */ 


}3 
/* 
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* To run this board, a static data area is kept in the ACP task 
* which will contain the linked list of this messages acting as 


* ring buffer. 


* The [rw]msg_area structures is used to contain the working 
* queues which both the host and exos manipulates 


x / 
#define NET RBUFS 7 
#fdefine NET WBUFS 7 


struct rmsg area { 
Ushort ma_rlink; 
struct msg ma_rmsgs[NET RBUFS]; 
struct msg *ma_lastr}3 


33 


struct wmsg area { 
Ushort ma_wlink; 
struct msg ma_wmsgs[NET WBUFS]; 
struct msg *ma_ lastw3 


bs 


1° 


/* 
/* 
/* 
/* 


/* 
/* 
/* 


read 
exos 
exos 
last 


exos 
host 
last 


message queue */ 
link to next msg*/ 


to host msgs */ 
examined msg */ 


link to queue */ 
to exos msg %/ 
examined msg */ 


Oct 41 


/* 

* These 
/ 

# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


* 


/* Executive 


# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


£, 
/* 


* These 


[* 


5338 1985 


are the DIC and DPB lengths of the Executive directives 


060 
060 
020 
010 
010 
064 
036 
025 
060 
021 
024 


Qro 

QIow 
ALUN 
WISE 
GTIM 
SPWN 
SDRC 
SDAT 
STOP 
RCVD 
MRKT 


TE BAD 
IE IFC 
IE DNR 
IE SPC 
IE ABO 
IE PRI 
IE DFU 
IE FHE 
TE OFL 


are the 


exqio.h Page 1 


01 
03 
07 
51 
75 
13 
15 
07 
3 

13 
27 


-01 
-02 
-03 
-06 
“15 
-16 
-24 
-59 
-65 


return status */ 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


function codes related to 


bad parameters 
illegal function 
device not ready 
illegal bufferr 
request aborted 


ef 
xe / 
ve / 
ve / 
/ 


priv or channel error*/ 


no free channel 


ve / 


fatal hardware error */ 


device offline 


ve | 


the QIO call to the ZE device 


* following five codes are already defined in standard rsx header file 
* rsx.h and are not defined here only shown under comment for clarity 


define 
define 
define 
define 
define 


x / 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


10 KIL 
10 WLB 
10 RLB 
IO ATT 
10 DET 


10_EXC 
EX INI 
EX CNF 
EX STR 
EX STS 
EX SAR 
EX GAR 
EX DAR 
EX ART 
EX DRT 
EX SRT 
EX NRT 


000012 
000400 
001000 
001400 
002000 


002400 


BRDINIT 
BRDGCONF 
BRDSTART 
BRDGSTAT 
BRDSARP 
BRDGARP 
BRDDARP 
BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 


# kill all outstanding request # 
# write to the EXOS memory 


# read from the EXOS memory 


# attach fn: made no-op 
# detach fn: made no-op 


# 
# 


/* EXOS board admn. operation */ 


/* 


/* 
/* 
/* 
/[* 
/* 
/* 
/* 
/[* 
/* 


Reset and configure EXOS 


¥ / 


/* get configuration msg 
Execute EXOS procedure 
Read network statistics 
set up an ARP table entry 


Retrive an ARP table entry 


Delete an ARP table entry 


Add an Routing table entry 


Delete an RT entry 
Fetch an RT entry 
Fetch next RT entry 


X / 
Xf 
x / 
v/ 
x / 
ve / 
x / 
%/ 
ve / 
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#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
+#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 


#define TS HNG 
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EX RST BRDRSSTAT 
EX OPN 0020 
EX CLS 0021 
EX POS BRDADDR 

IO ACS 003000 
SA OPN 50 
SA ACC 51 
SA CON 52 
SA_ SAD 55 
SA CLS 56 
SA_ SEL 59 
SA_USL 0210 
SA_URG 0200 
SA_ROO 0220 

IO XFR 003400 
IX RDS 0000 
IX WRS 0001 
IX SND 53 
IX RCV 54 

TO soc 004000 
SO_DON SIOCDONE 
SO_SKP SIOCSKEEP 
SO_GKP SIOCGKEEP 
SO _SLG SIOCSLINGER 
SO_GLG SIOCGLINGER 
SO SOB SIOCSENDOOB 
SO_ROB SIOCRCVOOB 
SO_AMK SIOCATMARK 
SO _SPG SIOCSPGRP 
SO GPG SIOCGPGRP 
SO_NRD FIONREAD 
SO_NBO FIONBIO 
SO_ASY FIOASYNC 

10 LOG 004400 

10 TEL 0177000 

0176000 


/* 
/[* 
/[* 
/[* 


/* Socket access operations 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 


/* data transfer operation 


/* 
/* 
/* 
/* 


/* socket control operations 


/* 
/* 
/* 
/* 
/* 
/* 
/* 
[* 
/* 
/* 
/* 
/* 
/* 


/* 
[* 
/* 


Read & Reset network stats 
Open an admin channel 
Close an admin channel 
Seek EXOS's memory 


*/ 
Open a socket 

Accept a remote socket 
Connect to a remote socket 
get socket informations 
close an opened socket 
perform select op on socket 


kill the outstanding select call */ 


prepare for urgent msg 


remove oob pkt from pending list */ 


Xf 
read from TCP stream 
write to TCP stream 

send datagram to a socket 
receive socket datagram 


x/ 
shutdowm r/w on socket 
set keep alive 

inspect keep alive 

set linger time 

get Linger time 

send out of band 
receive out of bound 
at oob mark ? 

set process group 

get process group 
FIONREAD 

FIONBIO 

FIOASYNC 


read error msg from EXOS */ 


telnet server pseudo fn code */ 
hangup carrier pseudo fn code*/ 


* All the Socket related parameters in the QIO call are passed 
* throgh the structure "SOictl" defined below. 


x] 


struct 


SOictl { 

short hassa$3$ 

struct sockaddr sa3 

short hassp$ 

struct sockproto sp} 

int type$ 

int options$ 

/* these are for select () 
int nfds 

long *wp$ 


/* 
/* 
/* 
/* 
/* 
/* 


non-zero if sa specified 
socket address (optional) 
non-zero if sp specified 
socket protocol (optional) 
socket type */ 
options */ 


% / 


%/ 
X/ 
xf 
xe / 
% / 
ye / 


*/ 


*/ 
ve / 
ve / 
%/ 


/ 
x/ 
¥/ 
¥/ 
x / 
* / 
*/ 
Xf 
x / 
%/ 
%/ 
%/ 
*/ 


ye / 


%*/ 
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long *rp3 
long timo; 


35 
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/* 


* finename: EXREG.H 


x / 
/* 


%* data structures for the Excelan exos/203 ethernet controller 


/* 


* The exctrl structure is used to maintain the software device during 


* its use. 


%/ 


struct exctrl { 


Ushort ex port; 


struct init msg *ex_imsg}3 
Ushort ex state} 


Uchar ex init; 


}3 
/* 


* ex state values 


ve / 
# define ST INIT 
# define ST WAITING 


/* 

* port address word 
x] 

# define EX PORT 

# define EX PORTA 
# define EX PORTB 


/* 


0x01 
0x02 


04000 


* macros for ease of use 


ve / 


it define PORTA 
it define PORTB 


/* 
* bits in port B 


x / 


# define PB ERROR 
# define PB INT 
# define PB READY 


/* our port address 164000 


f. 
* / 


/* virtual pointer to init msg */ 


/* state of the controller 


% / 


/* device has been initialized ¥/ 


/* device has been setup 
/* waiting for setup 


/* port address offset in 
/* offset for PORTA 


(ex _db.ex port + EX PORTA) 
(ex db.ex port + EX PORTB) 


001 
002 
008 


X / 
x / 


1/0 page*/ 
x / 


/* offset for PORTB % / 
/* fatal error when 0 ¥ / 
/* exos has interrupted when 1 x / 
/* exos is ready when 0 x / 
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/* unsigned data types (shorthand) */ 
typedef unsigned int Uint$ 
typedef long  Ulong; 
typedef unsigned short Ushort; 
typedef char Uchar3 


Sep 9 07:48 1985 in.h Page 1 


/* @(#)in.h 1.3 4/12/85 */ 


/* 

* GAP 1/11/85: WARNING - This file is included by both host 
* and board code. Make changes with extreme caution, and test 

* effects on both the host and board sides. 


* Constants and structures defined by the internet system, 
* Per RFC 790, September 1981. 


* Protocols 
*/ 
#define IPRO ICMP 


ee /* control message protocol */ 
define IPPROTO GGP 


/* gateway*2 (deprecated) */ 


HE AN 
~~ 
*+ 


#define IPRO TCP tep */ 
#define IPRO PUP 2 /* pup */ 
#define IPRO UDP 7 /* user datagram protocol */ 
#tdefine IPRO RAW 255 /* raw IP packet */ 
#define IPRO MAX 256 
/* 
* Port/socket numbers: network standard functions 
x / 
#define IPPORT ECHO 7 
#define IPRT DISCARD 9 
#define IPRT SYSTAT Li 
#define IPPORT DAYTIME 13 
#define IPRT NETSTAT 15 
#define IPRT FTP 21 
#define IPPORT TELNET 23 
#define IPPORT SMTP 25 
#define IPRT TIMESERVER 37 
#define IPPORT NAMESERVER 42 
#define IPPORT WHOIS 43 
#define IPPORT MTP 57 
/* 
* Port/socket numbers: host specific functions 
ve / 
#define IPRT TFTP 69 
#idefine IPRT_RJE 77 
#define IPPORT FINGER 79 
#define IPRT TTYLINK 87 
#define IPRT SUPDUP 95 
/* 
* UNIX TCP sockets 
¥/ 
#define IPRT_EXECSERVER 512 
#define IPPORT LOGINSERVER 513 


#define IPPORT CMDSERVER 514 
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/* 
* UNIX UDP sockets 
x / 
#define IPPORT BIFFUDP 512 
#define IPRT WHOSERVER 513 
/* 


* Ports < IPPORT RESERVED are reserved for 
* privileged processes (e.g. root). 


%/ 

#define IPPORT RESERVED 1024 

/* 

* Link numbers 

*/ 

#define IMPLK IP 155 

#define IMPLK LOWEXPER 156 

#define IMPLINK HIGHEXPER 158 

[x | 

* Internet address (old style... should be updated) 

x / | 

struct in addr { 

union { 
struct { char s bl,s b2,s8 b3,s b43 } S_un_b; 
struct { unsigned short s wl,s w23 } S un w3 
long S_ addr; _- 
} S un; 

#define s addr S_un.S addr /* can be used for most tcp & ip code */ 

#define s host S _un.S un b.s_b2 /* host on imp */ 

#define s net S_un.S un bes bl /* network */ 

#define s imp S_un.S un wes w2 /* imp */ 

#define s impno S un.S un b.s b4 /* imp # */ 

#define s lh  S_un.S un bes b3 /* logical host */ 

#define S baddr S_un.S un b 

35 

/* 


* Macros for dealing with Class A/B/C network 

* numbers. High 3 bits of uppermost byte indicates 
* how to interpret the remainder of the 32-bit 

* Internet address. The macros may be used in time 
* time critical sections of code, while subroutine 

* versions also exist use in other places. 


* GAP 1/10/85: Apparently these are designed to work on internet 
* addresses which reside in network order in RAM, if regarded as 
* a byte string. Be careful, because 4.2BSD defines just one 

* version of these macros, which works on internet addresses only 
* after they are swapped into proper order (in a CPU register) 

* by ntohl(). 


/* GAP 1/10/85: Note fancy footwork below to share header with board code */ 
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#ifdef ONBOARD /* board make does not define MACHINE type */ 


#define IN_CLASSA 0x00800000L 

#define INCA NET 0x00ff0000L /* 8 bits of net # */ 
#define INCA LNA Oxff00ffffL 

#define INCB 0x00400000L 

#define INCB NET Oxffff£0000L /* 16 bits of net # */ 
#define INCB LNA Ox0000ffffL 

#define INCC NET Oxffff00ffL /* 24 bits of net # */ 
#define INCC_ LNA 0x0000f£f00L 

#endif : 

#ifndef ONBOARD /* board make does not define MACHINE type */ 
#ifdef VAX 

#define IN CLASSA 0x00000080 

#define INCA NET 0x000000fF /* 8 bits of net # */ 
#define INCA LNA Oxffff£££00 

#define INCB 0x00000040 

#define INCB NET Ox0000f FFE /* 16 bits of net # */ 
#define INCB LNA Oxff£f£0000 

#define INCC NET OxO0ffffff /* 24 bits of net # */ 
#define INCC LNA Oxf£000000 

#endif 

#ifdef PDP11 /* Also 8086 XENIX V7 C */ 
#define IN CLASSA 0x00800000L 

#define INCA NET 0x00ff0000L /* 8 bits of net # */ 
#define INCA LNA Oxff00ffffL 

#define INCB 0x00400000L 

#define INCB NET Oxffff0000L /* 16 bits of net # */ 
#define INCB LNA Ox0000ffffL 

#define INCC NET OxffffOOffL /* 24 bits of net # */ 
#define INCC LNA 0x0000ff00L 

#endif 

#ifdef 18086 /* XENIX 3.0, Lattice C */ 
#define IN CLASSA 0x00000080 

#define INCA NET 0x000000ff /* 8 bits of net # */ 
#define INCA_LNA Oxffffff00 

#define INCB 0x00000040 

#define INCB NET Ox0000f fff /* 16 bits of net # */ 
#define INCB LNA Oxfff£0000 

#define INCC NET OxO0fffFFfE /* 24 bits of net # */ 
#define INCC LNA 0x££000000 

#endif 

#ifdef M68000 

#define IN CLASSA 0x80000000L 

#define INCA NET Oxff000000L /* 8 bits of net # */ 
#define INCA LNA OxO00ffffffL 

#define INCB 0x40000000L 

#define INCB NET Oxffff0000L /* 16 bits of net # */ 
#define INCB LNA Ox0000ffffL 

#define INCC NET OxffffffOOL /* 24 bits of net # */ 
#define INCC LNA 0x000000ffL 

#endif 

#ifdef Z8000 

#define IN _CLASSA 0x80000000L 

#define INCA NET Oxff000000L /* 8 bits of net # */ 
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#define INCA LNA OxO0ffffffL 


#define INCB~ 0x40000000L 

#define INCB NET Oxfff£f0000L /* 16 bits of net # */ 

#define INCB LNA 0x0000ffffL 

#define INCC NET OxffffffOOL /* 24 bits of net # */ 

#define INCC LNA Ox000000ffL 

#tendif 

#endif ONBOARD /* board make does not define MACHINE type */ 


#define IN NETOF(in) \ 
((Cin).s_addr&IN CLASSA) == 0 ? (in).s_addr&INCA NET : \ 
((in).s addr&INCB) == 0 ? (in).s addr&INCB NET : \ 
(in).s_addr&INCC_NET) 
#tdefine IN LNAOF(in) \ 
((Cin).s addr&IN CLASSA) == 0 ? (in).s addr&INCA_LNA : \ 
((in).s_addr&INCB) == 0 ? (in).s addr&INCB LNA : \ 
(in).s_addr&INCC_LNA) 


#define INADDR_ANY 0x00000000 
/[* 
* Socket address, internet style. 
x / 


struct sckadr in { 
short sin family; 
unsigned short sin port} 
struct in addr sin addr; 
char sin zero[8]; 


}3 


#ifdef KERNEL 
long in_netof(),in Inaof(); 
#endif 
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* filename: INIT.H 


* Structure used for initialization 


v/ 


/* some of the dummy entries are due 


struct init msg { 
short im _newstyle; 


char im version[4]; 
char im result 
char im mode} 


char im hdfo[2]; 
char im junk[3]; 


char im_addrmode} 
char im_dummy2 3 
char im | mmsize$ 


char im byteptn[4] 
Ushort im wordptn[2] 
long im longptn3 
char im mmap[20]; 


short im 10loff; 
short im 101seg; 


char im nproc3 
char im_nmb3 

char im nslots3 
char im nhosts$} 


/* “host to exos" stuff */ 


long im h2exqaddr}3 
short im h2exoff3 


char im h2extype}3 
char im h2exvalue} 
long im h2exaddr; 


/* “exos to host" stuff */ 


long im_ex2hqaddr; 
short im_ex2hoff3 


char im ex2htype} 
char im ex2value}; 
long im_ex2haddr;} 


$5 
/* im mode */ 
# define EXOS LINKMODE 0 


# define EXOS HOSTLOAD 1 
# define EXOS NETLOAD 2 


only. 


/* 
/* 
/[* 
/[* 
/* 


/* 


/* 
/* 
/* 
/* 
/[* 


/* 
/[* 
/* 
/[* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 


to byte swapping */ 


new style init msg? %/ 
version to the hardware */ 
completion code */ 

set to link moce (0) */ 

host data format option */ 
host address mode */ 
memory map size (returned) */ 


data order byte pattern */ 
data order word pattern */ 
data order long pattern */ 
(rest of) memory map (returned)*/ 


movable block offset */ 
movable block segment */ 

number of exos 101 processes */ 
number of exos 101 mailboxes */ 
number of address slots */ ~ 
number of hosts == ¥/ 


host to exos msg a address */ 
offset from base of actual q */ 


interrupt type for h2ex msg q */ 
interrupt value 

interrupt address ‘/ 

exos to host msg q address’ */ 
offset from base of actual q_ */ 
interrupt type for ex2h msg q_ */ 
interrupt value %/ 
interrupt address */ 
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/* 

* filename: IOPKT.H 

%/ 

struct rel addr { /* struct relocated address */ 
Ushort rel bias; /* relocation bias */ 
Ushort dis bias; /* displacement bias %/ 
}3 

struct iopkt { /* I/O pakcet field definition */ 
struct iopkt *i_ lnk; /* link to next I/O packet */ 
Uchar i pri ; /* priority of the requesting task*/ 


Uchar i_efn 
Ushort i _tcb 
Ushort i 1n2 


/* event flag number */ 
/* TCB address of requester */ 
/* address of second LUT word */ 


we we we we 


Ushort i_ucb /* address of UCB */ 
Ushort i fen $3 /* function code + modifier */ 
struct { 
Ushort v_iosb; /* virtual address of IOSB */ 
struct rel addr r_iosb; /* relocated address of IOSB- */ 
} > i_iosb; 
Ushort i ast 3 /* virtual address of AST routine */ 
struct { 


struct rel addr i buf}; 
Ushort i cnt} 

struct rel addr i soictl}; 
Ushort i _prm43 

Ushort i prm5$; 

Ushort i prm6$ 

} i_prm; 
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/* 
%* filename: RTHDATA.H 
+ / 


/* DATA STRUCTURES FOR THE TELNET SERVER */ 


# define MAXCNT 1 

# define ctrl(x)  ((x)&037) 

# define strip(x) ((x)&0177) 

# define PTYNO 8 

# define BS 010 /* character back space's ascii value*/ 
# define TC BIN 065 

# define TC NEC 047 

# define SF SMC 02440 

# define MAXBYTVAL 256 


/* EXOS-to-host requests are : */ 


# define TSCARON 0 /* x2h: carrier on (open connection) */ 
# define RLCARON 1 /* x2h: carrier on (for rlogin) */ 

# define TSCAROFF 2 =/* x2htcarrier off(closed connection)*/ 
# define TSREAD 3 /* x2h: read data (net-to-host) */ 

# define TSNVIFUNCT 4 /* x2h: IP, AYT, EC, EL, AO */ 

# define TSDOOPT 5  /* x2h: do BINARY, ECHO, etc */ 

# define TSDONTOPT 6 £/* x2h: don't BINARY, ECHO, etc */ 


/* Host-to~EXOS request codes ae as follows : */ 


# define | TSWRITE 32 /* h2x: write data */ 
#: define | TSHANGUP 33 /* h2x: close connection */ 
/* 


* In reply message from the EXOS to the host, nm reply may contain 
* the following values, for any request: 


*/ 

## define TSERRBADSOID 32 
# define TSERRPENDING 33 
# define TSERRCLOSING 34 
# define TSERRBADREQ 35 
# define TSERRTOOBIG 36 


/* The NVTFUNCT 's */ 


# define IP 244 
# define AO 245 
# define AYT 246 
# define EC 247 
# define EL 248 


/* The terminal options */ 


# define TELOPT BINARY 0 
# define TELOPT ECHO 1 
# define TELOPT SGA 3 
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/* Command table structure */ 


struct cmd { 
TEXT tsrqst3 /* telnet server command */ 
int (*handler)()3 
} cmdtab[ ] 


TSCARON, caron}, 

RLCARON, caron}, 
TSCAROFF, bye}, 

TSREAD, zt_read }, 
TSNVIFUNCT, nvtfunct}, 
TSDOOPT, do option}, 
TSDONTOPT, dont option }, 
TSWRITE, wr_reply }, 


(> TT oT oon toe eee lee Lone toe lee 


35 
/* The following is the status structure for all the pty's */ 


struct status { 


short pty number; /* pty device no. */ 

short carrier on} /* if 1, then Logged on */ 

short rlogin3 /* if 1 then it is a remote login */ 
int reply pending; /* a counter whose int indicates no.*/ 


/* of pkts sent to EXOS, */ 
/* MAX value = MAXCNT */ 


short echo opt3 /* If 1, then echo set */ 
short binary opt} /* Tf 1, then binary option set */ 
short sga opt} /* Tf 1, then sqa option set */ 


} pty_status[] = { 
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struct packet { 
struct packet *link; /* Link word */ 


Ushort moreto op} /* if 1 then more 0/P to come */ 
Ushort tcb dummy; /* always zero */ 

Ushort pty no; /* unit number */ 

Ushort ucb dummy; /* UCB address */ 

Ushort i fen; /* always IO TEL = 0177000 */ 
Ushort request; /* telnet request */ 
Ushort byte cnt; /* byte count */ 

char w_datal 32]; /* write-data */ 
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/* 
/* 


* GAP 1/11/85: 


* and board code. 


socket.h Page 1 


@(#)socket.h 1.8 7/29/85 */ 
socket.h 


4.16 


WARNING 


82/06/08 


x/ 


- This file is included by both host 
Make changes with extreme caution, and test 


* effects on both the host and board sides. 


¥ / 


#ifdef 

##define 
#define 
#define 
#define 
#define 
#define 
define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#tendif 


/ ¥ 


BSD4dot2 

accept ex_ accept 
connect ex connect 
gethostname ex gethostname 
receive ex receive 
select ex select 
send ex send 
socket ex socket 
socketaddr ex socketaddr 
shutdown ex shutdown 
htonl ex htonl 
htons ex htons 
ntohl ex ntohl 
ntohs ex ntohs 

swab ex swab 
BSD4dot2 


* Externally visible attributes of sockets. 


x / 


* 


/ 


* Socket types. 


* The kernel implement these abstract (session-layer) socket 
* services, with extra protocol on top of network services 
* if necessary. 


*/ 
#tdefine 
#tdefine 
#define 
#define 
#define 
#define 


/* 


SOCK STREAM 
SOCK DGRAM 


SOCK RAW 
SOCK RDM 
SOCK ETH 


SOCK ICMP 


AW WN 


* Qption flags per-socket. 


*/ 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


SO_DEBUG 0x01 
SO ACCEPTCONN 0x02 
SO DONTLINGER 0x04 
SO KEEPALIVE 0x08 
SO DONTROUTE 0x10 
SO SMALL 0x20 
SO REUSEADDR 0x40 


/* 
/[* 
/* 
/* 
/* 
/* 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


stream socket */ 

datagram socket */ 

raw-protocol interface */ 
reliably-delivered message */ 
link-mode access to e-net packets */ 
access to ICMP */ 


turn on debugging info recording */ 
willing to accept connections */ 
don't linger on close */ 

keep connections alive */ 

just use interface addresses */ 

use smaller (1/2K) buffer quota */ 
permit local port ID duplication */ 
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* Generic socket protocol format. 


* Each process is normally operating in a protocol family, 

* whose protocols are used unless the process specifies otherwise. 

* Most families supply protocols to the basic socket types. When 

* protocols are not present in the family, the higher level (roughly 
* ISO session layer) code in the system layers on the protocols 

* to support the socket types. 


%/ 
struct sockproto { 
short sp family; /* protocol family */ 
short sp protocol; /* protocol within family */ 
33 
#define PF _UNSPEC 0 /* unspecified */ 
#define PF UNIX 1 /* UNIX internal protocol */ 
#define PF INET 2 /* internetwork: UDP, TCP, etc. */ 
#define PF IMPLINK 3 /* imp link protocols */ 
#define PF PUP 4 /* pup protocols: e.g. BSP */ 
#define PF CHAOS 5 /* mit CHAOS protocols */ 
#define PF OISCP 6 /* ois communication protocols */ 
#define PF NBS 7 /* nbs protocols */ 
#define PF ECMA 8 /* european computer manufacturers */ 
#define PF DATAKIT 9 /* datakit protocols */ 
#define PF CCITT 10 /* CCITT protocols, X.25 etc */ 


* Generic socket address format. 


* Each process is also operating in an address family, whose 
* addresses are assigned unless otherwise requested. The address 
* family used affects address properties: whether addresses are 
* externalized or internalized, location dependent or independent, etc. 
* The address can be defined directly if it fits in 14 bytes, or 
* a pointer and length can be given to variable length data. 
* We give these as two different structures to allow initialization. 
%/ 
struct sockaddr { 
short sa family; /* address family */ 
char sa datal[14]; /* up to 14 bytes of direct address */ 


* The first few address families correspond to protocol 

* families. Address families unrelated to protocol families 
* are also possible. 
ve / 

#define AF UNSPEC 
#define AF UNIX 
#define AF INET 
#define AF IMPLINK 
#define AF PUP 
#define AF CHAOS 
#define AF OISCP 
#define AF NBS 


/* unspecified */ 

/* local to host (pipes, portals) */ 
/* internetwork: UDP, TCP, etc. */ 
/* arpanet imp addresses */ 

/* pup protocols: e.g. BSP */ 

/* mit CHAOS protocols */ 

/* ois communication protocols */ 

/* nbs protocols */ 


NOW DP WHF © 
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##define AF ECMA 
#define AF DATAKIT 
#define AF CCITT 
#define AF ETHER 
#define AF COUNT 
#define AF ETYPEFILTER 


#define AF MAX 


MWP: 


12 
13 


14 


/* 
/* 
/* 
{*% 
/* 
/* 


Sockaddr structure for Link mode access to 


v/ 


#ifndef u_short 


#define u_short unsigned short 


#endif 


european computer manufacturers */ 
datakit protocols */ 

CCITT protocols, X.25 etc */ 
Ethernet Address */ 

A count */ 

Ethernet filter */ 


EXOS board. 


#define sockaddr link sad link /* for compiler */ 


struct sockaddr link { 
short 
u_ short 
short 
#ifdef ONBOARD 
struct enreq 
#endif 
}3 


/* a handy macro */ 


sl family; 


sl_types[6]; 


sl zero}; 


*sl pndpkt}; 


/* a part-empty pkt on this socket */ 


#define saptr(x) ((struct sockaddr link *)(((struct socket *)(x))->so_pcb)) 
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/[* 


* filename: 


%e/ 


SOIOCTL.H 


* This file defines all the equate symbols for socket ioctl 
* commands. These values are actually passed onto to the board, 
* hence should not be altered. 


x / 

#define FIONREAD (127) 
#define FIONBIO (126) 
#define FIOASYNC (125) 
#define TIOCPKT (112) 
#define TIOCPKT DATA 
#define TIOCPKT FLUSHREAD 
#define TIOCPKT FLUSHWRITE 
#define TIOCPKT STOP 
#define TIOCPKT START 
#define TIOCPKT NOSTOP 
#define TIOCPKT DOSTOP 
define SIOCDONE (0) /* 
#define SIOCSKEEP (1) [* 
#define SIOCGKEEP (2) [* 
#define SIOCSLINGER (3) /* 
#define SIOCGLINGER (4) /* 
#define SIOCSENDOOB (5) /* 
#define SIOCRCVOOB (6) [* 
#tdefine SIOCATMARK (7) /* 
##define SIOCSPGRP (8) /* 
#define SIOCGPGRP (9) /* 
#tdefine SIOCADDRT (10) /* 
#tdefine SIOCDELRT (11) /* 
#define SIOCCHGRT (12) /* 


/* on pty: 


0x00 
0x01 
~ 0x02 
0x04 
0x08 
0x10 
0x20 


/* 
/* 
/* 
/* 
/* 
/* 
/* 


set/clear packet mode */ 
data packet */ 

flush packet */ 

flush packet */ 

stop output */ 

start output */ 

no more *S, “*Q */ 

now do *S *Q */ 


shutdown read/write on socket */ 
set keep alive */ 

inspect keep alive */ 

set linger time */ 

get linger time */ 

send out of band */ 

get out of band */ 

at out of band mark? */ 

set process group */ 

get process group */ 

add a routing table entry */ 
delete a routing table entry */ 
change a routing table entry */ 
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#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


ELMNTBUSY 
ELMNTFREE 
NULLPOINTER 


MAXBUF 
BUFSIZE 
MAXIOSB 
MAXSOICTL 


SOLUN 20 
SOEFN 1 


NOSOBUF 
NOSOIOSB 
NOSOICTL 
NOFREESOCKET 


oor 


/* 
/* 
/* 


/* 
/* 
/* 
/* 


/* 
/[* 


the element is busy */ 
the element is free */ 
it is pointing to null element */ 


max no of transfer buffer 
size of each such buffer 

max no of IO status block 
max no of SOictl structure 


EXOSO LUN 
efn 


ve / 
%/ 


¥/ 
%/ 
%/ 
¥/ 


Sep 9 07:48 1985 unidata.h Page l 


/* 

* filename: UNIDATA.H 

*/ 

/* 

¥* This file contains the data structures required for the ACP to 
* run on a UNIBUS machine PDP-11/24 

*/ 
define POOL BUFS 14 /* 14Kb buffers each of size = BUFSIZE */ 
#define ALLOCATED Oxl 

#define DEALLOCATED 0x0 

#define POOLBUFSIZE 1024 


struct pool im { 
Ushort§ state; 
struct iopkt *owner; 


}3 
struct pool im pool im[POOL BUFS] = {0}; /* pool's image */ 


struct rel _addr rellbuf 
struct rel addr rel2buf 


{0}; /* relocated address of lst 4kw of pool */ 
{0}; /* relocated address of 2nd 4kw of pool */ 


struct iopkt *sec que = {0}; /* sec que for pkts not getting pool space */ 
unsigned int *umraddr = {0}3 /* umr addr of umr of Ist 4kw of pool */ 
unsigned int zeucb = 03 /* storage for ZEO: UCB */ 


0; /* physical address of pool * 

0; /* 18-bit unibus address of Ist 4kw of pool */ 
18-bit unibus address of 2nd 4kw of pool */ 
0; /* 18-bit unibus address of message area */ 


long phy buf 
long unilbuf 
long uni2buf 
long uni_msg 


ton tt tt 
So 

we 

~~ 

se 

x 
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/* 
* filename: ACPROOT.C 
*/ 


/* 
* This is the main root of the acp task. It calls init() to make some local 
* initializations. 
*/ 
main() 
init()3 /* local initializations */ 
#ifdef DEBUG 
qio write("OUT INIT",9,040); 
#endif 
if (acpucb()) { 


#ifdef UNIBUS 


uni ini(); /* initialize unibus related stuff x / 
#endif 
do 
{ 
io pkt = dqpkt(); /* deque an user request */ 
action = 13 
if ( io pkt ){ /‘* if it's an request ef 
chn = PKT.i prm6; /* get ch # if any %/ 
switch ( io pkt->i_fcen ){ /* check the request % / 


case IO KIL: 
io kill(); 
break; 


case IQ EXC|EX OPN: 
iosb.cc = 13 iosb.lec = 03 
iosb.nread = opench(CH EXOS, PKT.i prm4); 
if ( iosb.nread < 1 ) 
iosb.cc = IE DFU; /* no free channel */ 
break} 


case IO EXC|EX CLS: 
iosb.cc = 13 iosb.lc = 03 
if ( inrange(chn) && sametask(chn) ) 
iosb.cc = closech(chn)}3 
break; 
case IO EXC|EX_INI: 
iosb.lc = 03 
if (inrange(chn) && sametask(chn) && writeprv(chn) ) 
iosb.cc = exsetup(PKT.i prm4)3 
else 
iosb.cc = IE PRI; /* priv or channel error */ 
break; 


default: 
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qio write("error: EXOS not configured",27,040); 
iosb.cc = IE DNR} /* device not ready * / 


if ( action ) 
ackuser(io pkt); 


}while (lex db.ex init); 
drive(); 


else qio write("error: EXOS dev not ready",25,040); 
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/* 
* filename: ANSWER.C 


* This function scans the entire reply message buffer starting from the next 
* to the last message buffer. For each buffer, it checks it's status field. 
* If it is owned by the host then it calls a function rprocess, to process 

* the reply and updates the status field. 


answer() 


register int i$ 
register struct msg *current 5 
register struct iopkt *pending; 


#ifdef DEBUG 
qio write("answer",7,040); 


#endif 
current = rmsg area.ma_lastr3; /* start where we left */ 
while (( current->nm_u.msg hd.mh status & 0x03 ) == 0 ) /* reply for host */ 
{ 


mp = current; 
switch(ex mg.nm request & Ox7F) { 
case SOSELECT: 
case SOSELWAKEUP: 
ex sel.nm proc <<= 1; 
pending = getpend((struct iopkt *)ex sel.nm proc); 
break; 
default: 
pending = getpend((struct iopkt *)ex mg.nm_userid)3 
break} 


/* check whether the reply was solicitated */ 


reply()3 
if ( pending ){ /* if it was solicitated */ 
i = pending->i_prm.i_prm6; /* get channel # %/ 
if ( inform ) { /* only if boards processing is */ 
ackuser(pending)$ /* over then acknowlege user ve / 
ch des[i].rundn_cnt--; /* decrement I/O rundown count */ 
if(ch_ mfor close(i)){ /* is it marked for close?if so...*/ 
closech(i)3 /* ...try to close the channel %/ 
} 
} 
else 


#ifdef DEBUG 

qio write("unsolicitated reply", 20,040); 
#else 

; /* null statement */ 
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#endif 


rmsg area.ma lastr = current->msg link} 
current = current->msg link; 


nxtrst = &rmsg area.ma_ lastr->nm_u.msg hd.mh_status} 
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/* 
* filename: append.c 


%/ 


append() : this routine appends the requested io pkt to the 
I/O pending list just before sending it to EXOS 


* so that on return it can be double checked for 

¥* issueing IOFIN and differentiate between solicited 
* and unsolicited reply from EXOS. 

% / 


int append() 
register struct iopkt *next$ 


if (!io pend) 
io pend = io pkt}3 


else 
{ 
next = 10 pend; 
while ( next->i_1nk) /* reach till end of list */ 
next = next->1i_ lnk; 
next~>i_ lnk = io pkt; /* append it to the end = */ 
} 
io pkt->i_lnk = 0; /* terminate the list %/ 
} 
/* 
* getpend() : this routine is called to find a match in the list of 
¥ pending I/O request . If a match is found it returns 
* the I/O packet address. 
*/ 


struct iopkt *getpend(pkt) 
struct iopkt *pkt3; 


register struct iopkt “prev, *current; 


if (io pend) /* if at all any request is pending in EXOS */ 
prev = 0; 
current = io pend; /* start searching from the begining % / 
while ((current != pkt) && (current->i_lnk != 0)) 
/* search for a match or end of list */ 
{ 


prev = current; 
current = current->i_ lnk; 


if (current==pkt ) /* if match */ 


if (prev) /* if it is not the first element in the list*/ 
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prev->i_ ink = current->i_ lnk; 
else 

io pend = current->i_ Ink; 
return(current)3 


else return(0); 


else return(0)3 


} 
/* 
%* pend Llist(pkt) ---> This routine checks if the specified packet is in 
* the pending List and waiting for a reply from the board 
‘| 
/[* 


* commenting out this whole routine 
pend list(pkt) 
struct iopkt *pkt3 


{ 


register struct iopkt *current} 


if(io pend) { 


current = io pend; *% start of pending list vere 
do { 
if(current == pkt) ** match? weve 
return(1)3 ** yes sere 
current = current->i_Ink}3 *“* no - see next** 


} while(current)3 


return(0)3 


ee 
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/* 

* FILENAME: 
*/ 

# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 
# include 


#ifdef UNIBUS 


#include 


#endif 


body.c 


<header.c> 
<acproot.c> 
<drive.c> 
<setup.c> 
<init.c> 
<request.c> 
<append.c> 
<answer.c> 
<signaloob.c> 
<reply.c> 
<insert.c> 
<findslot.c> 
<iokill.c> 
<cancel.c> 
<delay.c> 
<opench.c> 
<rth.c> 


<unlacp.c> 
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/* 
* filename: CANCEL.C 
*/ 


io rundown(ch_ no) /* cancel all outstanding request */ 
int ch no; 
{ o e o 

register int 13 

register struct iopkt *pkt; 


/* close all channels except this one */ 
for ( i=03 i<MAXCHANNEL; i++) 
if ((i != ch_no) && (ch_desli]. ch_type != CH FREE )) { 
ch des[i].rundn cnt = 0; /* force rundown count to 0 so that channel 
may be closed */ 
closech(i)3 


/* kill all outstanding requests from the user */ 


while(mrkcls) { /* kill all SOCLOSE packets */ 
pkt = mrkcls; 
mrkcls = mrkcls->i_ lnk; 
iosb.cc = IE ABO} 
ackuser(pkt)3 


} 
while(int que) 


pkt = int que; 
int que = int que->i_link; 
iosb.cc = IE ABQ; 
if((pkt->i_fcen == IO KIL) || 
dealoc b(pkt,sizeof(pkt)); 
else 
ackuser(pkt )3 


(pkt->i_fcn == I0 TEL)) 


while(io pend) 


pkt = io pend; 

io pend = io _pend->i_l1nk; 

iosb.cc = IE ABO; 

if((pkt->i_fcn == I0 KIL) || 
dealoc b(pkt,sizeof(pkt)); 

else { 


(pkt->i fen == IO TEL)) 


#ifdef UNIBUS 


freepool(pkt,0)3 /* must free the pool if allocated */ 
#endif 


ackuser(pkt) 5 
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/* 
* filename: DELAY.C 
*/ 


* The delay routine gives a time delay specified by the arguments passed: 
* tmag and tunit. If tunit = character 'T' (ticks) then a time dealy of 
* (tmag * 20 msec) is obtained. 

* Tf tunit='S', then a time dealy of tmag seconds is obtained. 


delay(tmag,tunit) 
int tmag;3 
char tunit3 


{ 
register int a$ 
if (tunit == 'T' [| tunit == 't') 
a=]; 
else 
a = 23 /* default unit is seconds */ 
emt (MRKT,8,tmag,a,0)3 
emt (WTSE,8)3 
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/* 
* filename: DRIVE.C 


* This is the main control flow routine of the ACP task.Its an 

* forever loop. While in the loop it first tries to dequeue a 

* packet from its external queue. These packets are nothing but 

* user's request queued by driver in packet form to the ACP task. 
* It returns from the DQPKT procedure iff some work is pending 

* for it in the form request from the user or reply from EXOS 

* or already pending requests in its internal queue. If it gets 

a request from the user it first checks whether it needs EXOS's 
participation or not. If not so, then it immedietly processes 
it, otherwise queues it to its own internal FIFO queue. After 
that it responds to all the pending reply from EXOS and then 
processes the pending user request from its internal queue 
subjected to the availability of free slot in the Host-to-EX0OS 
ring buffer queue. When it can not proceed any further it tries 
* to deque another packet thus completing a cycle. 


ee FH 


e % 


int drive() 
FOREVER { /* fall into an eternal loop */ 
io pkt = dqpkt(); /* deque an I/O packet */ 
#ifdef DEBUG 
qio write("waked up", 8,040); 
#tendif 
if ( io_pkt ) /* if any request */ 
‘int ack = 03 /* do not acknowlege user immedietly */ 


chn = PKT.i prm63 
switch ( io pkt->i fen ) { 


case IO EXC|EX OPN: /* open an admin channel */ 
iosb.cc=l3 iosb.lc=03 
iosb.nread = opench( CH EXOS, PKT.i prm4); 
if (iosb.nread < 1) 


iosb.cc = IE DFU$ /* channel open error */ 
ack = 13 
break; 
case IO EXC|EX INI: /* reinitialise EXOS sa 


iosb.cc=l3 iosb.lc = 03 
if ( inrange(chn) && sametask(chn) && writeprv(chn) ){ 


io rundown(chn); /* abort all outstanding I/O %/ 
iosb.cc = exsetup(PKT.i prm4); 
} 
else iosb.cc = IE PRI3 /* priv or channel error */ 
ack = 15 


break$ 
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case I0 EXC|EX POS: /* position the memory relocator */ 
iosb.cc= 13 iosb.le = 03 
if ( inrange(chn) && sametask(chn) ){ 
ch des[chn].ch u.ch addr.base = PKT.i prm4; 
ch des[chn].ch u.ch addr.off = PKT.i prm5; 
} 
else iosb.cc = IE PRI; 
ack = 1; 
break3 


case IO EXC|EX CNF: /* get configuration message %/ 
iosb.cc = 13 iosb.lce = 03 
if ( inrange(chn) && sametask(chn) ) 
ucopy( (char *) &init msg, &PKT.i buf.rel bias, 
sizeof( struct init msg ))3; 
else 
iosb.cc = IE PRI$ 
ack = l;3 
break$ 


case IO EXC|EX CLS: /* close admin channel */ 
iosb.cc= 13 iosb.lc = 03 
if ( inrange(chn) && sametask(chn) ) 
iosb.ecc = closech(chn)3 
ack=1$3 
break} 


case IO ACS|SA USL: 

iosb.cc = 1$ iosb.lce = 03 

if ( inrange(chn) && sametask(chn) ) 
fin_pen(SA_USL); 

else 
iosb.cc = IE PRI} 

ack = 13 

break; 


case IO ACS|SA URG: /* prepare for urgent msg */ 
if ( inrange(chn) && sametask(chn) ) 
PKT.i_prm4 = ch des[chn].ch u.ch_ soid3 
/* remember the socket id in the pending packet 
for future match on receive of urgent signal */ 


ch des{chn].rundn cnt++3  /* increment I/O rundown count */ 
append(); 
break; 
default: 
insert()3 /* put the request in internal queue */ 
if ( ack ) /* processed request, inform requester */ 


ackuser(io pkt); 
answer()3 /* process reply msg queue %/ 


/* loop to process pending request on availability of free slots */ 
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while ( int que && ( free slot = findslot() ) ) 
request()3 


#ifdef UNIBUS 
put sec que(); /* put the secondary que onto the top of int que */ 
#endif 


} 
} 
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/* 


* filename: 


exvar.c Page l 


EXVAR.C 


* This file defines all global variables for ACP task. 


x / 


struct 


rmsg area 


#ifdef UNIBUS 


char align[(((sizeof(rmsg area)/020) * 020) + 020) - sizeof(rmsg area)] = 


#endif 


struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
struct 
Uchar 
Uchar 
struct 
Ushort 
Ushort 
Ushort 
int 
struct 
int 
int 
int 
int 


/ 


wmsg area 
SOictl 
iosb 
exctrl 
init msg 
iopkt 
Lopkt 
iopkt 
iopkt 
msg 

msg 


sOictl 


¥ 


* 


rmsg area = {0}; 


align is defined to make sure the unibus address 
corresponding to wmsg area is so aligned that its 
lower 4-bits are always zero - this is for the 
convenience of the board to make the unibus address 


l6-byte aligned. 


wmsg area = {0}; 
SOictl = {0}; 
iosb = {0}; 
ex db = {0}; 
init msg = {0}; 
*io pkt = {0}; 
*int que = {0}; 
*io pend = {0}; 
*mrkels = {0}3 
“free slot= {0}; 
*mp = {0}; 
*nxtrst = {033 
*nxtwst = {0}3 
param = {0}; 
inform = 13 
action = 13 

cmd = 0, subcmd 
chn = 03 


channel ch_des[MAXCHANNEL] = {0}; 
exopnfrwrite = 03 


factor = sizeof ( 
zeint = 03 
zeport = U3 


= 03 


struct headers )3 
/* interrupt vector address */ 
/* port offset */ 


{0}; 


Oct 17 16:25 1985 findslot.c Page 1 


/* 
* filename: FINDSLOT.C 
*/ 


/* 
this function checks the status of the next available buffer 


in the queue and returns it if it belongs to host otherwise 
simply returns null pointer; 


¥/ 


struct msg *findslot() 
{ 


register struct msg “current 


current = wmsg area.ma_lastw; /* set to currently available buffer */ 
if ((current->nm_u.msg hd.mh_ status & 03) == 0 ) /* check the ownership */ 
{ 
wmsg area.ma lastw = current->msg link; /* set it to the next buffer */ 


nxtwst = &wmsg area.ma lastw->nm_u.msg hd.mh status} 
return( current )3 


} 


else 
return( 0 )3 /* return a null pointer */ 
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/* 
* filename : HEADER.C 
*/ 


* this file includes entire environment files 


*/ 
/* define the machine type as RSX */ 
#define RSX 11 


# include <std.h> 

# include <rsx.h> 

# include <socket.h> 
# include <soioctl.h> 
# include <brdioctl.h> 
## include <in.h> 

# include <extypes.h> 
# include <defines.h> 
# include <exqio.h> 

# include <exos.h> 

# include <exiocmd.h> 
# include <iopkt.h> 

# include <channel.h> 
## include <init.h> 

# include <rthdata.h> 
# include <exreg.h> 

# include <exvar.c> 


#ifdef UNIBUS 
# include <unidata.h> 
#endif 


Oct 17 16:26 1985 init.c Page 1 


* filename: INIT.C 


0 
iy 


* This function initializes the global variables 


ye | 
init() 
{ 
clear(&rmsg area, sizeof rmsg area )} 
clear(&wmsg area, sizeof wmsg area )3 
clear(ch des,MAXCHANNEL*sizeof( struct channel )); 
clear(&SOictl, sizeof SOictl )3 
clear(&iosb, sizeof iosb)}3 
clear(&ex db, sizeof (ex db)); 
clear(&init msg, sizeof init msg )$ 
ex db.ex imsg = &init msg} 
ex db.ex port = zeport3 /* zeport = ex port address 
} 
/* 


* This function clears a buffer p of length size 


*/ 

clear(p,size) 
register char *p3 
unsigned int size} 


int 15 


for(i=0;i<sizejitt+) 
*ep++=0 5 


%/ 
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/* 
* filename: INSERT.C 
/ 


/* This routine enters a currently dequeued I/O packet into 


* the ACP's internal FIFO queue 
*/ 


insert() 


{ 


register struct iopkt *next; 


#ifdef DEBUG 
gio write("insert ",8,040); 


#endif 
if (lint que) /* if the queue is empty */ 
int que = io pkt; /* make it first element */ 
else /* else enter it at the end */ 
{ 
next = int que} 
while(next->i_1lnk) /* fnd the last element */ 
next = next->i_ lnk}; 
next~>i_ lnk = io pkt; /* insert at the end %/ 
} 
io pkt->i_ lnk = 03 /* move null to the last link */ 
/* 
* CL LIST 
ce 
¥ This routine puts a pending IO KIL or an SOCLOSE packet 
¥ into the close list which is used to hold these packets 
* untill all I/O on their corresponding channels is finished. 
ae / 
cl List() 
{ 
register struct iopkt *next} 
if(tmrkcls) 
mrkcls = io pkt3 
else { 
next = mrkcls; 
while(next->i_1nk) 
next = next->i_ lnk; 
next->i_ lnk = io_pkt}; 
} 
io pkt->1i_lnk = 05 
} 
/* 
¥ GET CLS 
we 7 
* This routine gets the SOCLOSE and the IO KIL packets from 
* the close list mrkcls and returns their address if a match 
* is found corresponding to the channel number passed. 
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struct iopkt *get cls(ch_ no) 
int ch_no}3 


{ 
register struct iopkt *prev, *current}3 
if (mrkcls) /* if at all any request is pending in EXOS */ 
{ 
prev = 0; 
current = mrkcls}3 /* start searching from the begining % / 
while ((current->i_ prm.i_prm6 != ch no) && (current->i_lnk != 0)) 
7* search for a match or end of list %/ 
{ 


prev = currents 
current = current->1 Ink; 


} 
if (current->i_prm.i_prm6 == ch_no) /* if match */ 
if (prev) /* if it is not the first element in the list*/ 
prev->i_ ink = current->i_ lnk; 
else 


mrkcls = current->i_ lnk; 
return(current)}3 


} 


else return(0)3 


else return(0)3 


Oct 17 16326 1985 iokill.c Page l 


/* 
%* filename: IOKILL.C 


%* this routine closes all opened channel together with any opened 
* socket, after which it issues io-done for all the pending I/0 
* request in ACP. 


| 


remque( head ptr) /* remove all request from this que */ 
struct iopkt **head ptr; 
{ 


register struct iopkt “prev, “current, *next} 


#ifdef DEBUG 

qio write("remque", 7,040); 
#endif 

prev = 05 

current = *head ptr} 

while ( current ) 


{ 
next = current -> i Ink} 
if (current->i_tcb == io pkt->i_tcb) /* I/O request by same task */ 
{ 
if(current->i fen == IO KIL) /* if it is an IO KIL packet */ 
dalpkt(current)3 /* then deallocate it */ 

else { 
iosb.cc = IE ABO; /* return abort status to user */ 
current->1 ast= 03 /* make sure ast routine is not entered */ 


ackuser( current )3 


/* deque the packet from the List */ 


if ( prev ) 
prev -> i lnk = next; 
else 


*head ptr = next} 


else prev = current} 


current = next; /* check next */ 
he 
int srchn ( tcb ) £=~/* return channel number having same tcb %/ 
Ushort tcb3 
{ 


register int 13 


#ifdef DEBUG 
qio write("srchn",6,040); 
#endif 
for ( i=03; i<MAXCHANNEL 3 i++) /* search all channels */ 
if ( ( ch des[i]. ch_tcb == tcb ) /* channel ownned by this task */ 
&& !ch mfor close(i) ) /* ch not marked for close */ 
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if (ch desli].ch type == CH EXOS){ /* ch is Admin type */ 
#ifdef DEBUG 
qio write("close admin ch",15,040); 


#endif 
closech(i)}3 /* just close the ch */ 
continue}; /* search for next ch */ 
else { 


ch des[i].ch flag |= CH _MCLOSE; /* mark it for close */ 
#ifdef DEBUG i. 

qio write("return ch",10,040)3; 
ftendif 

return ( i )3 /* return this channel */ 


return (0)3 /* no more opened channel for this task */ 


3 


extern int cl List(); 
int io kill() 


register int ch_no} 


* check if there is any opened channel for this task. If so then 
* get channel # and issue SOCLOSE request and exit. ( in the 

* reply routine if it is a reply to SOCLOSE then it checks 

* whether the I/O function code in the io packet is IO KIL, and 

* if so instead of issuing IODONE it again insert the packet to 

* the internal I/O request queue pointed by int que thus allowing 
* the ACP to close the second socket, if any). 

* Else if there is no opened channel for this task then it goes to 
* kill all outstanding I/O ( whether the request has been issued 
* to the board or not). Then it issues an IODONE for the IO KIL 

* request packet. 


#ifdef DEBUG 
qio write("iokill",7,040); 
#endif 
if ( ch_no = srchn( io pkt->i_tcb ) )f{ 
#ifdef DEBUG 
qio write("close ch",9,040); 
#endif 
PKT.i_prm6 = ch_no; 
ex mg.nm_soid = ch des[ch no].ch u.ch_ soid; 
ex mg.emh length = sizeof ( struct messages ) - factor; 
ex mg.nm_ request = SOCLOSE; 


return (1)3 /* send request to board */ 
} 

else /* no more channel remains opened for this task */ 
{ 


#ifdef DEBUG 
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qio write("kill all pending I/0",20,040); 
#endif 


remque(&int que); /* remove all pending requests */ 
/* donot remove outstandig requests as their replies will come from the board */ 
dalpkt(io pkt);  /* deallocate the dummy I/O packet */ 
action = 03 /* do not take any action after this */ 
return( IE ABO ); /* reply user with termination status */ 


} 
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* / 


this routine first check the privilege of the task, if neccessary 
* and then finds a free channel and fils up few fields such as 

* channel type, ch flag ( mode and protection ) and the tcb field. 
* If either there is privilege violation or no channel free it is 

* immedietly informed to the caller by returning a negative value. 
* If everything is fine it returns a channel number to the caller. 


int opench( dev, mode) 
int dev, mode} 


{ 
register int i, priv flag = 0; 


priv flag = getpriv(io pkt->i_tcb); /* get privlege info */ 


/* Now get a free channel omitting the zeroth one so that 
channel # cannot be zero ve / 


for ( i = 13 i < MAXCHANNEL3; i++ ) 
if ( ch _des[i].ch type == CH FREE ){ 


ch _des[i].ch_ type = dev; /* either CH_EXOS or CH SOCKET */ 
ch des[i].ch tcb = io pkt->i_tcb3; /* tcb address of the requester*/ 
ch des[i].rundn cnt = 03 /* set initial rundown count as 0 */ 


if ( mode == CH WRITE ) 
ch des[i].ch flag |= CH WRITE; 
if ( priv flag ) 
ch des[i].ch flag |= CH _PRIV; 
return (i); /* return channel # */ 


return(IE DFU)$3 /* return no free channel */ 
} 
/* 


* function closech(ch no) frees an open channel unconditionally 
* by clearing all its field; 
% / 


extern struct iopkt *get cls(); 


int closech( ch no) 
int ch_ no} 
{ 


register struct iopkt *p3 


if ( inrange(ch no) && ( sametask(ch_ no) || 
(io pkt->i_ fen == IO KIL) || ch_mfor_close(ch no) ) ) 


if(ch des{ ch_no ]. rundn_cnt > 0) { /* I/O is pending on this channel*/ 
ch des[ ch no ].ch flag |= CH MCLOSE; /* then mark it for close */ 
return(1)3 
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else { 
ch _des[ ch no ch_ type = CH FREES 
ch des[{ ch no ch flag = 03 
= 03 


iF 

Tes Gh ° 
ch des[ ch no ]. ch tcb 
ch_des[ ch no i: 


while(p = get _cls(ch_no)) 
ackuser(p)3 
return (1); 


else return (IE PRI); /* privilege or ownership error */ 
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/* 


* reply() -> this routine post process the request to the board 


*/ 
int reply() 
{ 


register int cmd = 03 
register int cnt} 
register char *pf}; 


#ifdef DEBUG 
qio_write("REPLY",6,040); 
#endif 


switch(cmd = (int) ex _mg.nm_request & Ox7F) { /* the 


case SOSELECT: 

case SOSELWAKEUP: 
io pkt = (struct iopkt *)ex sel.nm proc}; 
break3 

default: 
io pkt = (struct iopkt *)ex mg.nm_ userid; 
break; 


chn = PKT.i_ prm6; 


request code */ 


iosb.lc = ex mg.nm_reply; /* board reply status */ 
iosb.cc = 13 /* QIO success */ 
iosb.nread = 03 

inform = 13 /* acknowledge the user immedietly %/ 


switch ( cmd ){ 


case NET ULOAD: 


/* copy the content of nm xmbyte first into a local buffer and 
then stick this byte to the first byte of the user buffer 


and then fall through the code of NET DLOAD 


% / 


bcopy((char *)&ex dl.nm xmbyte, (char *)&param, sizeof (char)); 


ucopy((char *) &param, &PKT.i buf.rel bias, 
sizeof ( char ))$ 


case NET DLOAD: 


iosb.nread = ex _dl.nm_length; /* no of bytes read */ 


ch des{chn].ch_u.ch addr.off += iosb.nread; 
#ifdef UNIBUS 

freepool(io pkt,((cmd == NET ULOAD) ? 1 : 0)); 
#endif 


break$ 


case NET START: 


case NET GSTAT: 
case NET RSTAT: 
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case NET SARP: 
case NET GARP: 
case NET DARP: 


case NET ADDRT: 
case NET DELRT: 
case NET SHOWRT: 
case NET DISPRT: 


#ifdef UNIBUS 
freepool(io pkt,1); /* consider all as read requests */ 
#endif 


break} 


case SOSOCKET: 
if ( iosb.lc == 0 )f{ 
ch des[chn].ch_u.ch_ soid = ex _cmd.nm soid; 
iosb.nread = chn3 /* return channel # */ 


break} 
case SOACCEPT: 
case SOCONNECT: 
case SOSKTADDR: 
if ( ex cmd.nm isaddr ){ 
beopy((char *)&ex cmd.nm saddr, (char *)&param.sa, 
sizeof( struct sockaddr ))3 
ucopy((char *) &param, &PKT.i soictl.rel bias, 
sizeof ( struct sockaddr))3 
} 


break}; 


case SOSEND: 
iosb.nread = ex pkt.nm count} 


#ifdef UNIBUS 
freepool(io pkt,0); /* write request so no Xfer involved here */ 
#endif 


break} 


case SORECEIVE: 
iosb.nread = ex pkt.nm count} 
if ( ex pkt.nm isaddr ){ 
beopy((char *)&ex pkt.nm_saddr, (char *)&param.sa, 
sizeof( struct sockaddr))3 
if ( PKT.i soictl.rel bias ) 
ucopy((char *)&param, &PKT.i soictl.rel bias, 
sizeof ( struct sockaddr ))3 
} 


#ifdef UNIBUS 
freepool(io pkt,1); 
#endif 


break; 
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case SOSELWAKEUP: /* socket ready for I/O */ 

/* 
In this case the I/O packet address is returned in the 
nm proc field of Sock select structure in the SELECT 
request to the board. nm_userid field is not used here. 
%/ 

iosb.nread = chn}3 

break} 


case SOSELECT: 
PKT.i_prm5 &= ~NOREPLY; /* reply has indeed come ! */ 


if(PKT.i prm5 & UNSELECT) { /* if unselect is requested */ 
iosb.nread = chn}3 /* acknowledge the user normally */ 
break} 
} 

if(lex sel.nm reply) { /* not ready yet */ 
inform = 03; /* donot inform user */ 


io pkt->i_lnk = io pend; /* put back the packet in the */ 
io pend = io pkt; /* pending list */ 


else 
iosb.nread = chn3 /* return channel # in 2nd IOSB word */ 
break; 


case SOCLOSE: 
if((io pkt->i_fcn == IO KIL)) { /* issued by io kill */ 
io _pkt->i_ink = int que; /* put it in internal Q again */ 
int que = io pkt3 


else. 

cl list();  /* put the close packet in the close List */ 
inform = 03 /* donot inform user right now */ 
ch_des[chn].rundn_cnt--3/* decrement I/O rundown count as this I/O */ 


/* is to be considered done %/ 
fin_pen(SA_USL);/* remove select pkts from the pending list */ 
fin pen(SA ROO);/* remove oob pkts from the pending List */ 
closech(chn); /* close shop in ACP %/ 
break} 


case SOIOCTL: 
switch ( ex ctl.nm_iocemd ){ 


case SIOCRCVOOB: 
bcopy(ex_ctl.nm_iocdata, &param.hassa, sizeof (char)); 
ucopy((char *) &param, &PKT.i_ soictl.rel bias, 
sizeof ( char ))3 
break$ 


case SIOCGKEEP: 

case SIOCGLINGER: 

case SIOCATMARK: 

case SIOCGPGRP: 
param.hassa = *(short *) ex ctl.nm_iocdata} 
ucopy((char *) &param, &PKT.i soictl.rel bias, 
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sizeof ( short ))3 
break$ 


case FIONREAD: 
bcopy(ex__ ctl.nm iocdata,&param.hassa, sizeof(long)); 
ucopy((char *) &param, &io pkt.i prm.i_soictl.rel_bias, 
sizeof ( long ));3 
breaks 


default: 
break; 


break}; 


case SOHASOOB: 


fin_pen(SA_URG); /* give a signaloob to the user */ 
inform = 03 
break} 
case TSCOMMAND: /* telnet server command */ 
dispatch(&ex tel); 
inform = 03 | /* donot do any IODONE on this packet */ 
break; 


case NET PRINTF: 
case NET PANIC: 
pf = &mp->nm_ u.enm _printf.nm_ prdata; 


for(cnt=03((*pf != '\n') && (pf t= '\O'))sent++,pf++)s 
qio _write(Smp->nm_ uenm_printf.nm_prdata,cnt,0); 
if(*pf == '\n') 
qio write("\r\n",2,0); 
break; 
defaut: 
break3$ 
} 
ex hd.mh_ length = sizeof( union exos u ) - sizeof ( struct headers)$3 
ex hd.mh status |= MQ EXOS; /* change ownership */ 
write port(PORTB, 0)$ /* inform EXOS */ 
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/* 
* filename: REQUEST.C 
*/ 


#ifdef UNIBUS 
extern long getpool(); 
#endif 


extern long absadr()3 


/* 
* int admin() 


%/ 


int admin() 


{ 


#ifdef DEBUG 
qio write("ADMIN" ,6,040); 
#endif 


if ( inrange(chn) && sametask(chn) && !ch mfor_close(chn) ) 
{ 


#ifdef UNIBUS 
if(PKT.i cnt > POOLBUFSIZE) 
return(IE SPC); /* return illegal buffer */ 
#endif 


switch ( cmd ){ 


case 10 RLB: /* Time being this is equated with IO WLB */ 
case IO WLB: 
ex dl.mh_length = sizeof( struct net_dload ) - factor} 
if ( cmd == IO WLB ){ 
if ( !writeprv(chn) ) return (IE PRI)}3 
ex dl.nm request = NET DLOAD3; 


#ifdef UNIBUS 
ex dl.nm_ source = getpool(io pkt,1)3 


#endif 
else { 


#ifdef— UNIBUS 
ex dl.nm_source = getpool(io pkt,0); 


#endif 
ex_dl.nm_request = NET ULOAD; 


} 


ex di.nm_length = PKT.i cnt} 


#ifndef UNIBUS 
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#endif 
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ex _dl.nm_source = 


ex dl.nm dest.base = 
ex_di.nm dest.off = 
break; 


case IO EXC: 
switch ( subcmd ){ 


case BRDSTART: 
if ( writeprv(chn) ){ 


ex hd.mh length = sizeof(struct 


absadr( & PKT.i buf ); 


ch_des[chn].ch_u.ch_addr.base} 
ch des[chn].ch_u.ch addr.off; 


net start) - factor} 


ex str.nm request = NET START; 
ex str.nm sal = PKT.i prm4; 
ex str.nm sa2 = PKT.i prm5; 


else return (IE PRI); 
break; 


case 
case 


NET GSTAT: 
NET RSTAT: 


NET SARP: 
NET GARP: 
NET DARP: 


case 
case 
case 


NET ADDRT: 
NET DELRT: 
case NET SHOWRT: 
case NET DISPRT: 
ex hd.mh length = 
ex pkt.nm soid = 


case 
case 


0; 


sizeof( struct 


Sock pkt ) - factor; 


ex pkt.nm _request= subcmd; 


#ifdef UNIBUS 


#else 


#endif 


ex pkt.nm_bufaddr = 


getpool(io pkt,1l); 


ex pkt.nm_bufaddr= absadr(&PKT.i buf); 


ex pkt.nm count = PKT.1i cnt} 


ex pkt.nm_isaddr = 0; 
switch ( subcmd )f{ 
case NET RSTAT: 


NET_SARP: 
NET DARP: 


case 
case 


case 
case 


NET _ADDRT: 

NET DELRT: 
examine()3 

if (!writeprv(chn) ) 

return (IE PRI); 


/* check for write protection 
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default: 3 


} 


break3 


default: 
return IE IFC; /* illegal function */ 


} 


break; | 


default: 
break} 


return(1)3 


else return (IE PRI); 


} 
examine( ) 


/* a dummy routine to set a breakpoint */ 


} 


int access() 


if ( subcemd == SOSOCKET ) 
if ( chn = apenent CH SOCKET, CH WRITE )) 
PKT.i_prm6 = chn; /* store the channel # in I/O packet*/ 


else return (IE DFU); /* channel open error */ 
else 
if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 
ex mg.nm_ soid = ch des[chn].ch_u.ch soid; /* get socket id */ 


else return (IE PRI)$ /* error condition */ 


if ( (subemd != SOCLOSE) && (subcmd != SOSELECT)) /* no soictl struct */ 
if ( PKT.i soictl.rel bias) 
scopy(&PKT.i soictl.rel bias, sizeof (struct SOictl)); 
/* copy SOictl buffer from user space to my space in var param */ 
else return (IE BAD); /* invalid param */ 


switch( subemd ){ 


case SOSOCKET: 
case SOACCEPT: 
case SOCONNECT: 
case SOSKTADDR: 
ex _hd.mh length = sizeof ( struct Sock cmd ) - factor; 
if ( ex cmd.nm isaddr = param.hassa ) 
bcopy( &param.sa, &ex cmd.nm_saddr, sizeof (struct sockaddr) )$ 
if ( ex cmd.nm isproto = param.hassp ) 
beopy(&param.sp,&ex_ cmd.nm_sproto,sizeof( struct sockproto) )$ 
ex cmd.nm type = param.type;3 
ex _cmd.nm_ options = param.options} 
ex _cmd.nm_ iamroot = ((ch_des[chn].ch flag & CH_PRIV) 2? 1: 0 )3 
break; 
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case SOCLOSE: 
ex mg.mh_ length = sizeof ( struct messages ) - factor} 
break; 


case SOSELECT: 


ex_sel.mh Length = sizeof( struct Sock select) - factor} 
ex sel.nm rw = PKT.i prm4 + 13; /* read = 1 and write = 2 */ 
ex _sel.nm proc = ((Ushort)io pkt >> 1) & Ox7FFF; 

/* pass the pkt address with msb 0 */ 


PKT.i_prm5 |= NOREPLY ; /* indicate no reply initially */ 
break; 

default: 
return (IE IFC); /* unknown command */ 


ex mg.nm_ request = subcmd; 
return (1); 


} 
/* 


* int transfer() 


*/ 
int transfer() 


if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 


#ifdef UNIBUS 
if(PKT.i cnt > POOLBUFSIZE) 
return(IE SPC); /* return illegal buffer */ 
#endif 


ex pkt.mh length = sizeof( struct Sock pkt ) - factor}; 
ex pkt.nm soid = ch des[chn].ch u.ch soid; 
ex pkt.nm_ count = PKT.i cnt} 


#ifndef UNIBUS 
ex pkt.nm bufaddr= absadr(&PKT.i buf); 
#endif 


if ( (subcmd == SOSEND) || (subcmd == SORECEIVE) ) 


scopy( &PKT.i soictl.rel bias, sizeof(struct SOictl)); 
if ( ex_pkt.nm isaddr = param.hassa ) 
bceopy(&param.sa, &ex pkt.nm saddr,sizeof( struct sockaddr ))5 


if ( (subemd == SOSEND) || (subcmd == IX_WRS) ) { 
ex pkt.nm_ request = SOSEND; 


#ifdef UNIBUS 
ex pkt.nm bufaddr = getpool(io pkt,1); 
#tendif 
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else { 
ex _pkt.nm_ request = SORECEIVE$ 


#ifdef UNIBUS 
ex pkt.nm bufaddr = getpool(io pkt,0); 


#endif 


return(1)3 


else return (IE PRI); 


/* 
¥* int excontrol() 


*/ 


int excontrol() 
{ 
char achar} 
short anint}3 
struct rtentry route; 


if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 


ex ctl.mh length = sizeof( struct Sock pkt ) - factor} 
ex ctl.nm_request= SOIOCTL; 
ex ctl.nm soid = ch des[chn].ch_u.ch_ soid; 


switch (subcmd) { 
case FIONREAD: 
case FIONBIO: 
case FIOASYNC: 


ex _ctl.nm_ioccmd = IOXFIO(subemd) 3 
break} 

default: 
ex ctl.nm_ioccmd = IOXSIO(subcmd); 
break; 


scopy( &PKT.i soictl.rel bias, sizeof ( struct sockaddr ))3 
switch( subcmd ){ 


case SIOCGKEEP: 

case SIOCGLINGER: 

case SIOCRCVOOB: 

case SIOCATMARK: 

case SIOCGPGRP: 

case FIONREAD: 
break} 


case SIOCSENDOOB: 
beopy(&param.hassa, &achar, sizeof ( achar ))3 
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ex ctl.nm_iocdatal0] = achar; 
break} 


case SIOCSLINGER?: 

case SIOCSKEEP: 

case SIOCSPGRP: 

case SIOCDONE: 

case FIONBIO: 

case FIOASYNC: 
bcopy(&param.hassa, &anint, sizeof ( anint ))3 
*(short *)ex ctl.nm_iocdata = anint; 


break} 
default: 
return(IE IFC); /* unknown comand */ 
} 
} 
else return (IE PRI); /* if not inrange or sametask */ 
return(1)3 /* else return success ¥/ 
} 
/* 
* int request() 
*/ 
request() 


register int ex send = 1; 


#ifdef DEBUG 
qio write("request",8,040); 
#endif 


io pkt= int que} /* deque an packet from internal queue */ 
int que = int que->i_lnk; 

io pkt->i_ ink = 03 

cmd = io pkt->i_fcn & Oxff00; /* mask lower 8 bits */ 

subemd = io pkt->i_ fcn & Ox00ff;/* mask off upper 8 bits */ 

mp = free slot; 


chn = PKT.i prm6; /* channel # if any %/ 
clear(&param.hassa, sizeof ( struct SOictl))3 
action = 1; /* take action always unless not restricted by any routine */ 


if(io pkt->i_fcen == IO KIL) { 
ex_send = io kill(); 
chn = PKT.i prm6; /* re-initaialize ch # as IO CAN does*/ 
} /* not have any in it */ 
else 
switch ( cmd ){ 


case IO WLB: /* write into EXOS's memory */ 
case IO RLB: 
case IO EXC: 

ex send = admin(); 

break$ 
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} 


if (action) 
if(ex send > 0){ 


else 


wmsg area.ma_lastw = 


else { 
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case IO ACS: 
ex send = 


break} 


access()3 


case IO XFR: 
ex_send = 


break; 


transfer()3 


case IO SOC: 
ex_send = 


break} 


excontrol()3 


case IO TEL: 
ex send = 


break}; 


telnet()3 


case TS _HNG: 
ex send = 


break; 


hangup()$ 


default: 


ex send = IE PRI; 


ex mg.nm_ userid = ( long ) io pkt3 

ex mg.nm reply = 03 

ex hd.mh status |= MQ EXOS; 

if(io pkt){ /* if io pkt == 
append(); 
ch_des[chn].rundn_ cnt++3 


} 


write port( PORTB, 0); /* 

return (1)3 /* 
/* if ex send < 0 */ 

iosb.cc = ex _send3 /* 


ackuser(io pkt); 


wmsg area.ma lastw = mp$ /* 


nxtwst = &wmsg area.ma lastw->nm_u. 


/* if not action */ 


mp 5 


/* socket access operation */ 


/* data transfer with the socket */ 


/* real socket control operations */ 


/* error no such command  ~*/ 


/* send request or acknowlege user */ 


0 do not append */ 


/* increment rundown count */ 


interrupt EXOS */ 
success */ 
return errorcode */ 


release unused slot */ 
msg hd.mh_ status} 


nxtwst = &wmsg area.ma_lastw->nm_u.msg hd.mh_ status} 


} 
} 


/* beopy() : copy two buffers by count */ 


int bcopy( from, to, 


count ) 


char *from, *to$3 
int count} 
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for ( 3 count > 03 count-- ) 
*tot+ = *fromt+3 
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/ * 


* filename: RTH.C 


*/ 
/* 


* Code for RTH -> the telnet server on RSX-11M - The different routines 


%/ 
|* 


* DISPATCH --> this routine calls the relevant routine according to the 


* 


%/ 


received telnet command 


struct cmd *getcmd()3 


dispatch(ser) 
struct Telnet srvr *ser; 
{ 
register struct cmd *c3 
#ifdef DEBUG 
qio write("in dispatch",11,040); 
#endif 
if(c = getemd(ser->nm_tsrqst)) 
(*c->handler)(ser,0); /* the 2nd param is 0 for do-option routine 
#ifdef DEBUC 
| qio write("out dispatch ",12,040); 
#endif 
} 
/* 
* GETCMD --> this routine searches for the relevant routine according to 
* the given telnet command 
x] 
struct cmd * 
getcmd(req) 
TEXT req} 
register int is 


#ifdef 


#endif 


#ifdef 


#endif 


register struct cmd *tab = cmdtab}3 

DEBUG 

qio write("in getcmd",9,040); 

for(i=03;i<PTYNO;it++,tab++) { 
if(tab->tsrqst == req) { 


DEBUG 
qio write("out getcmd '",10,040); 
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return(tab)3 
} 
} 
if(i == PTYNO) 
return(0)3 


/* 
* TELNET~-> this routine sends a message to the EXOS for telnet. 
% / 


telnet() 

{ 
register struct packet *p = (struct packet *)io pkt}3 
register struct status *st = pty status + p->pty_ no; 


#ifdef DEBUG 
qio write("in telnet",9,040); 
#endif 


action = 03 /* assuming we are not sending any request to EXOS */ 
if(p->byte_ cnt) 
if(st->carrier on) { 
if(!st->reply pending) { 
p->request = TSWRITE; 
wr_ to exos(p); /* write into the wmsg area */ 
st->reply pending = 13/* reply is now pending*/ 
io pkt = 03 /* so that it is'nt put in the */ 
/* pending queue of the ACP ve / 


else { 


#ifdef DEBUG 
qio write("** SEVERE ERROR ** - pkt from ZT before reply",45,040); 
#endif 


io pkt = 03 


else { 


* If not logged on then packet cannot go to 
* EXOS and hence we give an O/P interrupt and 
* also deallocate the packet from ZT. 


if(p->moreto op); 
out_int(p->pty_no)} 


#ifdef DEBUG 
qio write("pkt from ZT lost as not logged in',33,040); 
#endif 


} 
else { 
/* then it is a dummy packet */ 
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if(!st->reply pending) 
/* then we won't get a write reply from EXOS so give an O/P int. */ 
out_int(p->pty no); 


dealoc b(p,sizeof(struct packet)); /* deallocate packet from ZT */ 


#ifdef DEBUG 
qio write("out telnet ",10,040); 


#endif 

return(1)3 /* ex send should always be 1 for telnet */ 
} /* end of wr_to exos */ 
/* 


* WR TO EXOS -- This routine fills up the wmsg area for telnet 
%/ 


wr_to_exos(p) 
struct packet *p3 


{ 
action = 13 /* we are sending a request to EXOS */ 
ex tel.mh length = sizeof(struct Telnet_srvr) - factor} 
ex tel.nm_soid = p->pty_no$ 
ex tel.nm_ request = TSCOMMAND; 
ex tel.nm tsrqst = p->request; 
ex tel.nm tsdlen = p->byte cnt} 
bcopy(p->w_data,ex tel.nm tsdata,ex tel.nm_tsdlen); 
} 
/* 
* CARON 
*f 
caron(p) /* TSCARON/RLCARON */ 
struct Telnet srvr *p3 
{ 


register struct status “st = pty status + p->nm_soid; 
char c = ctrl1('C')3 


#ifdef DEBUG 
qio write("in caron ",8,040); 
#endif 


if(st->carrier_ on) 
return(0); 
else 
if(set car _on(st->pty number)){ /* enable unit and set got carrer */ 
st->carrier on = 13 /* say carrier on */ 
qio_zt(p->nm_soid,&c,1)3; 


#ifdef DEBUG 
qio write("out caron",9,040); 
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#endif 
} 
|* 
* BYE 
% / 
static char *bye msg = "BYE\r "'; 
bye(p) /* TSCAROFF */ 
struct Telnet srvr *p; 
{ 
register struct status *st = pty status + p->nm_soid; 
char c = ctrl('C')$; 
#ifdef DEBUG 
qio write("in bye ",6,040); 
#endif 
if(!st->carrier on) 
return(0)3 
else { 
st->carrier on = 03 /* indicate carrier off */ 
qio_zt(p->nm_soid,&c,1); /* send a “C first */ 
qio_zt(p->nm_soid,bye msg,4)3 
#ifdef DEBUG 
qio write("out bye",7,040); 
#endif 
} 
|* 
* ZT READ 
ef 
zt_read(p) /* TSREAD */ 
struct Telnet srvr *p3 
register struct status *st = pty status + p->nm_soid; 
#ifdef DEBUG 
qio write("in zt read ",10,040); 
#endif 
if(!st->carrier_on) 
return(0)3 
else { 
#ifdef DEBUG 
int 13 
i = 0; 


i = '0' + p->nm soid; 
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qio write(&i,2,040); 
} 
#endif 


qio_zt(p->nm_soid,p->nm_tsdata,p->nm_tsdlen); 
#ifdef DEBUG 


qio write("out zt_read",11,040); 
#endif 


} 


/* 
* WRITE REPLY 


ale 
a 


wr_reply(p) /* TSWRITE (x2h) */ 
struct Telnet srvr *p3 
{ 


register struct status *st = pty status + p->nm_soid; 


#ifdef DEBUG 
qio write("in wr reply",11,040); 
#endif 


if(!st->carrier_on) 
return(0); 
else { 
if(p->nm_reply == TSERRPENDING) 
return(0)$3 
else { 
st->reply pending = 0; 
out int(p->nm_soid)}; 
} 
} 


#ifdef DEBUG 
qio write("out wr reply ",12,040); 


#endif 
} 
/* 
% NVTFUNCT 
% / 
nvtfunct(p) /* TSNVIFUNCT */ 
struct Telnet srvr *p} 
{ 


char ch} 
register struct status “st = pty status + p->nm_soid}; 


#ifdef DEBUG 
qio write("in nvtfunct",11,040); 
#endif 
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if(!st->carrier_ on) 
return(0)3 
else { 
switch (p->nm_tsdata[0]) { 
case AO-MAXBYTVAL : 
ch = ctrl1('0');3 
break; 
case EC-MAXBYTVAL : 
ch = BS} 
break$ 
case EL-MAXBYTVAL : 
ch = ctrl('U')3 
break$ 
case ITP-MAXBYTVAL : 
ch = ctrl('C'); 
break; 
case AYT-MAXBYTVAL: 
default: 
returns 
} /* end of switch */ 
qio_zt(p->nm_soid,&ch,1); 
} /* end of else */ 


#ifdef DEBUG 
qio write("out nvtfunct '",12,040); 


#endif 
} /* end of nvtfunct() */ 
/* 
%* DO OPTION 
x / - 
do option(p,t) /* TSDOOPTION */ 
struct Telnet srvr *p; 
int t3 
{ 


static char stadd[2]; 
register int i=0; 
register struct status “st = pty status + p->nm_soid; 


#ifdef DEBUG 
qio write("in do option ",12,040); 
#endif 


if(!st->carrier on) 
return(0)3 
else { 
switch (p->nm_tsdata[0]) { 
case TELOPT BINARY: { 
stadd(0] = TC BIN; 
if(t) { /* if t = 1 then it is a dont_option */ 
st->binary opt = 0; 
stadd{1] = 0; 
break; 
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} 

else if(!t) { 
st->binary opt = 1; 
stadd[1] = 13 
break3 

} 
} 
case TELOPT ECHO: { 
stadd[0] = TC_NEC; 


if(t) f{ /* if t = 1, it is a dont option * 


st->echo opt = 03 
stadd[1] = 1; 
break} 


} 
else if(!t) { 
st->echo opt = 1; 
stadd[{1] = 0; 


break} 
} 
} 
case TELOPT SGA: 
default: 
return} 
} /* end of switch */ 
qio_smc(p->nm_soid,stadd); 
} /* end of else */ 
#ifdef DEBUG 
qio write("out do option",13,040); 
#endif 
} /* end of function */ 
/* 
* DONT OPTION 
ve] 4 
dont option(p) /* TSDONTOPTION */ 
struct Telnet srvr *p; 
{ 
#ifdef DEBUG 
qio write("in dont option ",14,040); 
#endif 
do option(p,1); 
#ifdef DEBUG 
qio write("out dont_option",15,040); 
#endif 
} 
/* 


* HANGUP 


n 
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e+ + + % 


*/ 


hangup() 
{ 


} 
[* 


This routine is called from 'request' when a 'BYE' is given 
bye the remote user and the 'BYE' task gives a QIO IO.HNG to the ZT 
driver which in turn gives a packet to ACP with a func code TS.HNG 
and this routine actually sends the request to the board to hangup 
the line. 


register struct packet *p = (struct packet * )io pkt3 
register struct status *st = pty status + p->pty_no}3 


if(st->carrier_on){ 
p->request = TSHANGUP$ 
wr to exos(p)} 


st->carrier on = 03 /* drop carrier */ 
} 
else 
action = 03 
io pkt = 03 


dealoc b(p,sizeof(struct packet)); /* deallocate packet from ZT */ 
return(1); 


* This ends the code for RTH 


*/ 
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/* 

* filename: SETUP.C 

%/ 

/* 

* exsetup’ 

¥ - setup message queue 

* - send init message to exos 
* ~- analyse board response 

*/ 


extern int zeint;3 
extern long reloc()3 


#ifdef UNIBUS 
extern int *“umradd; 


extern long unilbuf; /* 18-bit unibus address for local pool */ 

extern long uni msg} /* 18-bit unibus address for msg area */ 

extern long phy_ buf}; 
#endif 
int exsetup(mode) 

int mode;3 

{ 

struct rmsg area *rmsgarea$ 

struct wmsg area *wmsgarea 3 

register struct msg *current, *next 3 

long addr3 

long r_ base, w_ base; 

Uchar *ap, init addr[8]; 

int err, timeout $ 

register struct init msg *im3 

int 13 

Uint Xceiver}3 

rmsgarea = &rmsg area; 

wmsgarea = &wmsg area}; 

r_base = reloc(rmsgarea) /* rmsgarea base segment addr */ 
#ifdef UNIBUS 

: /* for UNIBUS the 18-bit addr is 16-byte aligned */ 
#else . 

& Ox3FFFFO; /* in Q-bus make phy-addr 16-byte aligned */ 
#endif 

w base = reloc(wmsgarea) /* wmsgarea base segment addr */ 
#ifdef UNIBUS 

; /* for phy-addr need not be 16-byte aligned */ 
#else 

& Ox3FFFFO3 /* for Q-bus it must be l6-byte aligned */ 
#endif 


/* link together the read “exos to host" message queue */ 


rmsgarea->ma_ rlink = (Ushort)( reloc(rmsgarea->ma_rmsgs) - r_base)3 
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/* exos link to read queue */ 


current = (struct msg *) (&rmsgarea->ma_rmsgs[NET RBUFS-1]); 
ia ase lastr = rmsgarea->ma_rmsgs3 
nxtrst = &rmsgarea->ma_ Lastr->nm | u.emsg — hd.mh _ status; 
for(i=0;i<NET RBUFS;i++) { 
next =(struct msg *)( &rmsgarea->ma_rmsgs[i])3 
current->nm_u.msg hd.mh Link = (Ushort)(reloc(next) - r_base); 
current->nm u.msg hd.mh length = sizeof(union exos_ u) 
- sizeof( struct headers)3 
current->nm_u.msg hd.mh status =33 
current->msg link = next$ 
current = next; 
} 
/* link together the write “host to exos" message queue */ 
wmsgarea->ma wlink = (Ushort)( reloc(wmsgarea->ma_wmsgs) - w_base )3 


current = (struct msg *) (&wmsgarea -> ma_wmsgs[NET WBUFS-1]); 

ine cei erga lastw = wmsgarea -> ma_wmsgs3 

nxtwst = &wmsgarea—>ma_lastw->nm_u.msg hd.mh_status3 

for (i=03i < NET _WBUFS3i++) { 
next = (struct msg *) (&wmsgarea-> ma_wmsgs[i]); 
current->nm_u.msg hd.mh link = (Ushort)(reloc(next) - w_base)}3 
current->nm u.msg hd.mh length = sizeof (union exos u) - 

sizeof( struct headers )3 


current->nm_u.msg hd.mh status = 03 
current -> msg link = next} 
current = next} 
} 
/* setup initialization message */ 
im = ex db.ex imsg; 
clear(im,sizeof(struct init msg) )} /* clear the init msg area */ 
im -> im newstyle = 1; /* use new style message ~*/ 
im -> im result = OxFF3 /* reserved */ 
im -> im mode = mode & Ox07F; /* setup mode %/ 
im->im_ hdfo[0]=im->im hdfo[{1] = 1; /* do auto-byte/word swapping*/ 
im -> im_addrmode = 33 /* absolute address mode ¥ / 


/* data order test patterns */ 


im -> im _byteptn[0] = 1; 

im -> im byteptn[1] = 3; 

im -> im byteptn[2] = 73 

im -> im byteptn[3] = OXF; 

im -> im wordptn[0] = 0X103; 

im -> im wordptn[1] = OX70F; 

im —> im longptn = 0X103070F;5 


im -> im 10loff 
im -> im nhosts : 
im -> im result 


oil 
Re 
3 


-> im 10lseg = OXFFFF; 


i 
rae 
3 


-> im nmb = im -> im nproc = im -> im nslots=OXFF; 
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im -> im h2exqaddr = 
#ifdef UNIBUS 

uni_msg + (w_base - r_base)3 
#else 

w base} 
#endif 


/* 22 bit physical base address */ 
im->im h2exoff = (Ushort)(reloc(&wmsgarea->ma_wlink) - w_base)} 


/* 16 bit physical address */ 


im -> im h2extype = 03 /* polled by EXOS */ 
im -> im h2exaddr = 03 


im -> im ex2hqaddr = 
#ifdef UNIBUS 

uni_msg3 
#else 

r_ base} 
#tendif 


/* 22 bit physical base address */ 
im->im ex2hoff = (Ushort)(reloc(&rmsgarea->ma_rlink) - r_base)} 


im -> im _ex2htype = 43 /* bus vectored interrupt */ 
im -> im ex2haddr = ((long) zeint << 16); /* interrupt address */ 
/* the address is shifted 16 bit so that lower word remains zero */ 


/* init message initialization is complete */ 


/* reset exos by writing onto port A$ then after 2 secs 
check the status and report an error x / 


write port(PORTA,0)$; 
delay(2,'s');  /* wait for 2 secs for successful initialization */ 
for(33){ 
if(((Xceiver = read port(PORTB)) & PB ERROR) == 0){ 
/* check if success bit is clear */ 
if(mode & 0x80) /* if infinite timeout is requested */ 
continue} 
else 
return( PB ERROR); 


else 


} 


init addr[0] = init addr[1] = -1;3 /* move FF */ 

init addr[2] = init addr[3] = 0 ; * move 0 */ 

addr = reloc(ex db.ex imsg); /* int_addrs[0..3] is init 
as OXFFFFO000 */ 


break; 


#ifdef UNIBUS 


unsigned int “p = (int )&addr3 
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*umradd++ = *++p3 /* use the first UMR of the pool and load it */ 
*umradd-~ = *--p5 
addr = unilbuf; * 18-bit address */ 


#endif 


for(i = 03 i<43 i++) { 
init _addrs[i+4] = addr; 
addr >>= 83 


/* write the init_addrs to port B preceded by OXFFFFO000 */ 


#ifdef DEBUG 
qio write("init",5,040); 
#endif 
for ( i = 03 i < 83 i++ ){ 
timeout = 1000003 
while((read_port(PORTB) & PB_ READY) && timeout-—) 
if(timeout == 0){ 
if(mode & 0x80){ /* is infinite timeout requested */ 
timeout = 100000; 
continue$ 


return(read port (PORTB) )3 
} 
write port(PORTB,((init_addrli])&0XFF)); 
} 


#ifdef DEBUG 
qio write ("over",5,040)5 
#tendif 
delay(2,'s')3 
for(33){ 
if(im->im_result){ 
if(mode & 0x80){ 
delay(2,'s')3 
continue} /* infinite timeout */ 
} 
ex db.ex init = 03 
break} 


else { 
ex db.ex init 
break} 


} 


i) 
e 
we 


} 


#ifdef UNIBUS 
{ 
unsigned int *p = (int )&phy buf}; 


*umradd++ = *++p3 /* restore lst UMR */ 
*umradd-- = *-—p5 
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#endif 


im->im_dummy2 = Xceiver} /* error status of Xceiver cable */ 
return(im->im_ result) 
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/* 
* filename: SIGNALOOB.C 
*/ 


int fin_pen(x) 
int x} 
{ 
register struct iopkt *pkt, *prev3 
int fn_code,b,c,ch no; 


prev = 03 
pkt = io pend; 


if(x == SA_USL) 

fn_code = I0 ACS|SA SEL; 
else 

fn_code = TO _ACS|SA_URG; 
c = chn}3 


while ( pkt ){ 
if(x == SA_URG){ 
= pkt->i prm.i prm4; 
c = ex oob.nm_ soid; 
} 
else 
b = pkt->i_prm.i_ prm63 


if((pkt->i_fcen == fn code) && (b == c)){ 
if(x == SA_USL) 
if(pkt->i prm.i prm5 & NOREPLY){ 
pkt->i_prm.i_prm5 |= UNSELECT; /* set it unselect */ 


prev = pkt; 
pkt = pkt->i_ lnk; 
continue$ 
} 
if ( prev ) 
prev->i_ Ink = pkt->i_ Ink; 
else 


io pend = pkt->i lnk; 

if((x == SA USL) || (x == SA_ROO)) /* only for SA_USL and SA _ROO */ 
pkt->i ast = 03 ~/* see that ast is not entered */ 

ch no = pkt->i_prm.i_prm6; /* get the channel nmumber */ 

if(x == SA_URG) 


iosb.nread = ch no$ /* return channel number in iosb*/ 
ch des[ch no].rundn cnt--3;  /* rundown the I/O %/ 
ackuser( pkt )3 - 
} 
else 


prev = pkt;3 
pkt = pkt->i_ Ink; 
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¥ filename: UNIACP.C 


This file contains the 'C' code for incorporating ACP on a UNIBUS M/C 


x 


UNI_INI 


This routine is called for initializing the unibus related 
stuff. It calls a macro routine to assign the UMR's. 


ee 


* 


/ 


uni ini() 


srex()3 /* specify exit ast for cleanup of UMR's */ 
clear(pool_im,sizeof pool im); 
rel pool(); /* initialize relocated address of pool */ 


if(lass umr()) { 
qio write("** FATAL %** - NO UMR'S AVAILABLE",32,040)3 


exit ()3 
} 
/* call a macro routine to assign 3 UMR's for pool 
* area and the message area and also load them and 
* gave the physical UNIBUS address (18-bit) in a 
* global area. 
X/ 
} 
/* 
x GETPOOL 
* 
* This routine gets a free buffer from the pool and allocates 
* it for the requester. This returns the 18-bit UNIBUS address 
* of the allocated slot. If allocation fails then the packet is 
* put in a secondary queue and action is set to '0' so that the 
¥* board does not get any message for the time being. 
*/ 
Long 
getpool(pkt,st) 


struct iopkt *pkt3 

Ushort st} 

{ 
register struct pool im *pl = pool im; 
struct rel addr tmp addr; 
int 13 7 


for(i=03i < POOL BUFS;i++,pl++) 
if(pl->state != ALLOCATED) { 
pl->owner = pkt3 


pl->state = ALLOCATED; 
if(st) { /* if it is a write request then do Xfering */ 
if(i <= 7) { /* ig it within lst 4kW ? ¥ / 


tmp addr.rel bias = rellbuf.rel bias; 
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tmp addr.dis bias = rellbuf.dis bias + (POOLBUFSIZE * i); 
} 
else { 
tmp addr.rel bias = rel2buf.rel bias; 
tmp addr.dis bias = rel2buf.dis bias + (POOLBUFSIZE * (i-8))3 
} 


acopy(&pkt->i_prm.i buf,&tmp addr.rel bias,pkt->i_prm.i_ cnt); 
break$ 


} 
if(i == POOL BUFS) { /* if no pool available */ 
action = 03 /* donot send anything to the board */ 
pkt->i Ink = sec que; /* put the pkt on top of the sec que */ 
sec que = pkt}3 
return(0)3 


if(i <= 7) 
return(unilbuf + (POOLBUFSIZE * i)); 
else 
return(uni2buf + (POOLBUFSIZE * (i - 8)))3 
} 
/* 
* PUT SEC QUE 
*/ 7 aa 
/* 


* Puts the secondary que on the top of the internal queue in the reverse 
* order i.e. the last element of the sec queue will finally be on top of 
* the internal queue. 


* / 

put_sec que() 

| register struct iopkt *tmp3 
while(sec que) { 


tmp = sec que->i_lnk; 
sec que->i lnk = int que} 


int que = sec que} 
sec que = tmp; 
; 

} 
/* 
* FREEPOOL 
* 
* This routine frees the allocated pool and also Xfers the data 
¥ which has arrived from the board to the user area. 
*/ 
freepool(pkt,st) 


struct iopkt *pkt3 
Ushort st} 


{ 


register struct pool im *pl = pool im; 
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struct rel addr tmp addr; 
register int i3 


for(i=03;i < POOL BUFS;i++,pl++) 
if(pl->owner == pkt) { 
pl->state = DEALLOCATED; 
pl->owner = 0 
breaks 


r 
9 


} 
if(st) { 
if(i <= 7) { 
tmp addr.rel bias 
tmp addr.dis bias 


rellbuf.rel bias; 
rellbuf.dis bias + (POOLBUFSIZE * i)5 


else { 
tmp addr.rel bias 
tmp addr.dis bias 


rel2buf.rel bias} 
rel2buf.dis bias + (POOLBUFSIZE * (i - 8))5 


} 
acopy(&tmp addr.rel bias,&pkt->i_ prm.i_buf,pkt->i_prm.i_cnt)3 
/* Xfer read data from pool to the user buffer */ 


Oct 17 16:25 1985 


FILEMANE: 


ACPUCB: --> 


@e We we we ws we We we we we we 


we we 


- TITLE 
- IDENT 


SYSTEM 


we we we we we 


.MCALL 
UCBDF$ 
DCBDF$ 


C$SPRT=0 
.PSECT 
ACPUCB: 
.IF DF 


JSR 
MOV 


- ENDC 
CALL 


CLR 
MOV 
208: MOV 
BEQ 
CMP 
BNE 
INC 
MOVB 
MOV 
MOV 
40$: MOV 
CLR 


ACPUCB.MAC 
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This routine searches the DCB list and picks up the ZE device 
DCB. It then moves the TCB address of the ACP(current) task's 
TCB address to the U.ACP field of each UCB of the device. 

As it manipulates the system database it first switch itself 
to system state such that all other processes are lock, by 
calling to $SWSTK routine. 


RO returns the completion code 0 --> unsucess 1 --> success 


ACPUCB 
/01/ 


MACRO CALLS 


UCBDF$ , DCBDF$ 


C$TEXT,1I,RO 


CSSPRT 


R5,CS$SAV 
R5,-(SP) 


SSWSTK, RET 


SUCC 

#SDEVHD , R2 
(R2),R2 

60$ 
#"'ZE,D.NAM(R2) 
208 

SUCC 
D.UNIT+1(R2),R3 
D.UCBL(R2) ,R4 
D.UCB(R2),R2 
STKTCB,U.ACP(R2) 
U.CW2(R2) 


OO WO We we WS We we we ws we we ws we we 


We WO CGO we WH We CE We We ws we we ee Oe 


global reference label 


make it 'C' callable 
save © frame pointer 


switch to system state and return to user 
state at RET after execution of RETURN 
indicate unsuccessful 

set pointer to the first DCB 

get next DCB address 

no more DCB exit, it is unsuccessful exit 
is it ZE device ? 

if NE no$3 go for next DCB 

indicate success 

get number of UCBs (units) 

get size of the UCB 

get first UCB address in R2 

get ACP(current) task TCB address 

clear user characteristics word 
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»IF DF UNIBUS 


MOV U.ACP+2(R2),PHY.BUF 33 higher order address 
MOV U.ACP+4(R2), PHY. BUF+2 $3; lower order address 
MOV R2,ZEUCB $3 save UCB address 
-«ENDC 
ADD R4,R2 35 get next UCB address 
DEC R3 33 decrement UCB count 
BPL 40$ 33 if PL(us) more UCB 

33 


60$: RETURN switch to user state 
RET: MOV SUCC,RO sreturn result in RO 


.IF DF C$SPRT 


MOV (SP)+,R5 ; adjust frame pointer 
JMP CSRET ; return to caller 
~IFF 

RETURN 

~ENDG 


SUCC: - BLKW 1 


-PSECT CSTEXT,I,RO 
- EVEN 
- END 
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filename: DQPKT.MAC 


This routine dequeues a pakcet from the listhead of the ACP task. It first 
switches to system state before dequeueing. The address of the dequeued 
packet is returned in RO making it callable from C. 


SE VE GE GF VO GF STO wo wd 


CSSPRT=0 ; this routine becomes callable from a C routine 
.MCALL TCBDF$, UCBDF$ 
TCBDF$ 
UCBDF$ 
sTITLE DQPKT 


~IDENT /01/ 
»PSECT cS$text,i,ro 


IOPKT: .BLKW 1 ; local variable to hold I/O packet address 
DQPKT:: 


.IF DF CSSPRT 


JSR R5,c$sav $ save register R2-R5 and adjust stack 
MOV R5,-(SP) ; save R5 i.e frame pointer of C routine 
» ENDC 

CLR IOPKT ; clear I/O packet address 


SWSTKS USR switch to system state to lockout other 


processes 


MOV $TKTCB,RO get ACP(our) TCB address 
ADD #T.RCVL,RO get receive queue listhead 
CALL SQRMVF attempt to dequeue packet 
BCS 20$ if CS no pakcet 
MOV R1,IOPKT return address of I/O packet 
BR 60$ return 
208: MOV NXTRST,R2 get pntr to status field of reply Q 
BEQ 40$ initially the ptr is null and since 


there is no job for acp - sleep 


BITB #3, (R2) check ownership 


ws We We We we CO we We we OS Oe He Oe Oe ee 8 Ce Oe Oe we 
We WO We WO WO Be Oe HH SO HOH BO OD SO HO ES HE Oe ee ee SO 


BEQ 60$ if EQ owner=host, process reply 
TST INT .QUE check if anything pending in internal Q 
BEQ 40$ if EQ nothing, then sleep 
MOV NXTWST,R2 check availibility of free slot 
BEQ 40$ initially ptr is null so sleep since no job 
BITB #3, (R2) check ownership 
BEQ 60$ if EQ slot available, procees request 
40S: JMP S$STPCT go to sleep 
60S: 
RETURN $3 return to user state 
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USR: MOV TOPKT,RO 


.IF DF C$SPRT 


MOV (SP)+,R5 
JMP c$ret 
LFF 

RETURN 

«ENDC 


C function: 


_ ackuser(io_ pkt) 
struct iopkt *io pkt3 


we WS We Ve We we Ce we WE 8 SO we Oe we 


ACKUSER? 3 


.IF DF C$SPRT 


JSR R5,c$sav 

MOV R5,-(SP) 

MOV 4(R5),R3 

. ENDC 

MOV R3,R0 

MOV R3, IOPKT 

MOV I.UCB(R3) ,R5 

ADD #I.PRM,RO 

MOV #10,R1 
10$: CLR (RO)+ 

DEC Rl 

BNE 10$ 

CALL SSWSTK, RET 

MOV IOSB,RO 

MOV IOSB+2,R1 

MOV IOPKT,R3 


CALL SIOFIN 


RETURN 
RET: 


9 


° 
9 
° 
9 


we we we we we we we we we we 


wewse we we we 


return I/O packet address in RO 


restore frame pointer of the C routine 
$ unsave register and adjust stack & return 


ACCKUSER : this is a C callable routine, which will issue a $IOFIN 
to inform the requesting task of IO completion. This is 
only compatable with C function call. 


IOSB is the address of the IOSB 


Save register and adjust stack 
save frame pointer 
move address of I/O packet 


move address of I/O pkt in RO 
save I/O pkt addr 

move address of UCB in R5 

RO now points to parameter block 
clear 8 words in param block 
clear parameter word 

decrement loop count 


switch to system state 
move first word of IOSB 
move second word of IOSB 
get I/O pkt addr 

; complete io process 


return to task state 
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.IF DF CS$SPRT 


MOV (SP)+,R5 3; restore frame pointer 
JMP CSRET $ return to the caller 
«IFF 

RETURN 

» ENDC 


This is a 'C' callable routine, which returns the absolute 
physical address of an input virtual address. 


long reloc(v_ addr) 
Ushort v_ addr; 


This routine is also callable from macro, input outputs are 
INPUT: RO -> virtual address 


OUTPUT: RO -> higher order address word 
Rl -> lower order address word 


we We Ce WE WO SE VE DWE SE VE SE SE WH GE SE WE 


RELOC: 3 
~IF DF CSSPRT 


JSR R5,CSSAV 3; save all register 
MOV R5,-(SP) 3; save frame pointer 
MOV 4(R5),R0 ; get address parameter 
»ENDC 


CALL SRELOC relocate virtual address 


9 
BIC #160000 ,R2 3; mask out APR index and get displacement 
MOV R1,R0 3 get relocation bias in RO 
ASH #-12,R0 3 get upper 6 (out of 22) bits in RO 
BIC #177700,R0 ; mask other 10 bits 
ASH #6,R1 $ get upper 10 bits of lower 16 bits in Rl 
BIS R2,R1 3; append lower 6 bit offset 


.IF DF C$SPRT 


MOV (SP)+,R5 3; restore frame pointer 

JMP CSRET ; restore all register and return 
~IFF 

RETURN 


- ENDC 
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we 


this is a "C" callable routine which returns the absolute physical 
address of an input pointer to a relocated address. 


long absadr( reladr ) 
struct rel addr *reladr; 


this routine is also callable from macro with input & output as 
INPUT: RO -> pointer to the relocated address 


OUTPUT: RO -> higher order physical address 
Rl -> lower order physical address 


We we we we we we WS WS WS WE 


we we we 


ABSADR$S : 
~IF DF CSSPRT 


JSR R5,CS$SAV 3 save all registers 

MOV R5,-(SP) ; save frame pointer 

MOV 4(R5),R0 $ get the input parameter 

~ENDC 

MOV (RO),R1 3; get relocation bias in Rl 

MOV 2(RO),R2 3 get displacement bias in Rl 

BIC #160000,R2 3; mask out the APR index 

MOV R1,R0 $ get relocation bias in RO 

ASH #-12,R0 ; get lower 6 bits of higher order adr 
BIC #177700,R0 ; mask out remaining bits 

ASH #6,R1 ; get upper 10 bits of lower address 
BIS R2,R1 ; append lower 6 bit offset( displa) 


eIF DF CSSPRT 


MOV (SP)+,R5 $; retore frame pointer 

JMP CSRET $ restore all register and return 
~IFF 

RETURN 

- ENDC 


this is a 'C' callable routine to get the privilege info of a task 


int getpriv( tcb) 
int tcb3 /* tcb address of the task */ 


we we we we we we 
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INPUT 
OUTPUT 


we we we we 


GETPRIV: ! 
.IF DF C$SPRT 


JSR R5,CS$SAV 
MOV R5,-(SP) 
MOV 4(R5),R3 
»ENDC 
CLR RO 
BIT T.ST3(R3),#T3.PRV 
BEQ 20$ 
MOV T.UCB(R3),R2 
BIT U.CW2(R2),#U2.PRV 
BNE 10$ 
MOV U.DCB(R2),R2 
CMP #''CO,D.NAM(R2) 
BNE 20$ 
10$: 
INC RO 
208: 
IF DF CS$SPRT 
MOV (SP)+,R5 
JMP CSRET 
LFF 
RETURN 
-ENDC 


.PSECT CS§TEXT,I,RO 


- EVEN 
» END 


we we we 


we we we we we we we we we 


wo 


we we 


if called from macro , input & outputs are 
R3 -> tcb address of the task 
RO -> = 1 if priv else clear 


save all register 
save frame pointer 
get tcb address 


assume non-privilege 

test privilege bit 

if EQ then task is non-privileged 
get the ucb of ‘tis' 

test privilege bit 

if NE then privileged 

get 'TI:' DCB 

is it the console? 

if NE then no, so non-privileged 


output privilege 


restore frame pointer 
restore register and return 


Oct 17 16:25 1985 rthmac.mac Page 1 


filename: RTHMAC.MAC 


This file contains all the C - callable routines written in MACRO-11 assembly 
language 


we We we we we we 


»TITLE RTHMAC 
~IDENT /01/ 


.MCALL UCBDF$,PKTDF$,DCBDF$,SCBDF$,TCBDF$ 
UCBDF$ ,,TTDEF 

PKTDF$ 

DCBDF$ 

SCBDF$ 

TCBDF$ 


IO.INP 
IO.OUT 


5400 
6000 


i il 


OUT.INT --> This routine gives an O/P interrupt to ZTDRV 


we we we 


-psect cS$text,i,ro 
.MCALL ALUN$S,QIO$S,QIOW$S 


OUT.INT?: 
jsr R5,c$sav 
MOV 4(R5),R2 3; get pty _no first parameter 


ALUNSS #7,#"ZT,R2 
QIo$s #I0.OUT,#7,,,,, 


jmp c$ret 


QIO.ZT --> This routine does a QIO IO.INP to ZTDRV which simulates an 
I/P interrupt. 


we we we we 


QIO.ZT:: 


jsr R5,c$sav 

MOV 4(R5),RO 3 pty_no 

MOV 6(R5),R1 ; buffer ptr to be o/p 
MOV 10(R5),R2 3; length of buffer 


ALUNSS #7,#''ZT,RO 
QIOWSS #I0.INP,#7,#1,,,,<R1,R2> 


jmp c$ret 3 return to caller 


DEALOC.B --> This routine deallocates a packet back to the system pool 


we we we 
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DEALOC.B3:3 
jsr 
MOV 


MOV 
MOV 
CALL 


MOV 
jmp 


we we we 


QIO.WRITE:: 
jsr 
MOV 


MOV 
MOV 
MOV 
QIowss 


MOV 
jmp 


we we we we 


QIO.SMC:: 
jsr 
MOV 


MOV 
MOV 


ALUNSS 
QIOWSS 


MOV 
jmp 


epsect 


RTVAL: 
» WORD 


epsect 
SET.CAR.ON: 


jsr 


R5,c$sav 
R5,-(SP) 


6(R5),R1 


4(R5),R0 
CSDEACB 


a 


(SP)+,R5 
c$ret 


R5,c$sav 
R5,-(SP) 


4(R5),R0 
6(R5),R1 
10(R5),R2 


#IO.WLB,#5,#1,,, 


(SP)+,R5 
c$ret 


QIO.SMC --> This routine does 
options. 


R5,c$sav 
R5,-(SP) 


4(R5),R1 
6(R5),R2 


#7,#"ZT,R1 


we we we we 


we 


r) 
? 
* 
? 
r 
b 
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size of pkt to be deallocated 

address of that pkt 

deallocate pkt back to the system pool 
also return to task state 


return to caller 


QIO.WRITE --> This routine writes to the tewrminal 


buffer pointer 
buffer length 
vertical format character 


,»<RO,R1,R2> 


a 


QIO SF.SMC to ZTDRV to set and reset terminal 


pty number 
address of buffer 


#SF SMC, #7 ,#1,,,,<R2,#2> 


(SP)+,R5 
c$ret 


c$data,d,rw 


0 


c$text,1,ro 


R5,c$sav 
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MOV R5,-(SP) 
MOV 4(R5),R0 3; pty number 
SWSTKS 305 $3 switch to system state 
MOV #SDEVHD, R2 $3 start of device tables 
10$3 
MOV (R2),R2 33 get next DCB 
BEQ 20$ 33 if EQ device not in system 
CMP #"ZT,D.NAM(R2) $3 is it the 'ZT' device? 
BNE 10$ 33 if NE no, keep searching 
MOV D.UCBL(R2),R1 $3 get Length of UCB 
MOV D.UCB(R2),R2 33 get address of first UCB 
MUL RO,R1 $3; get offset to the correct UCB in Rl 
ADD R1,R2 $3 get UCB address in R2 
BICB #US.DSB!IUS.CRW,U.STS(R2) $3 enable unit and not waiting for car. 
MOV #1,RTVAL $$ return sucess 
RETURN $3 return to user state at 30$ 
208: 
MOV #0,RTVAL $$ indicate failure as ZT device not found 
RETURN $3 return to user state 
308: 
MOV RTVAL, RO ; return value 
MOV (SP)+,R5 3; restore frame pointer 
jmp c$ret 


epsect cS$text,i,ro 

even 

»psect c$data,d,rw 

even 

» END 3; end of file RTHMAC.MAC 
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filename: RWPORT.MAC 


NAME: 
read.port, write.port -- read and write from the port 


SYNOPSIS: 
int read port(PORT) 
int PORT; 


int write port(PORT,value) 
int PORT; 


value; 


FUNCTION: 
read port reads the specified port and returns the value 


write port writes the given value into the specified address. 


we we we we we we we we ws we Wt we We We we WH UF WHR we WE ws 


TITLE RWPORT 
-IDENT /01/ 


IOPAGE 
CSSPRT 


160000 
0 


»PSECT EXSRWI,RO 


READ.P?:: read port entry point 


we 


~IF DF CSSPRT 


JSR R5,CSSAV $ save registers if C interface 
MOV 4(R5),R1 $ get port address in I/O page in Rl 
»ENDC 


MOVB IOPAGE(R1),RO 3; read a byte from port in RO 


.IF DF C$SPRT 


JMP CSRET ; restore register 
~ LFF 

RETURN 3 return to caller 
- ENDC 


WRITE. 33 write port entry point 


we 


.IF DF C$SPRT 
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JSR R5,CSSAV 
MOV 4(R5),R1 
MOVB 6(R5),R0 


save all register in C environment 
get port address in I/O page in Rl 
move a byte value in RO 


we we we 


- ENDC 


MOVB RO, IOPAGE(R1) write a byte into port 


we 


.IF DF C$SPRT 


JMP CSRET ; restore register and return 
oTFF 

RETURN $ return to caller 

» ENDC 


.PSECT RWPORT,I,RO 
. EVEN 
END 
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TITLE SCOPY 
-IDENT /01/ 


.PSECT C$TEXT,I,RO 


CS$SPRT=0 


SCOPY: this routine copies user soictl buffer into a global 
buffer of acp. this routine is "C" callable as 


scopy( from, count) 
struct rel addr *from; /* pointer to source relocated addr * 
int count$ /* byte count */ 


we we we we we we Oe (8A 


FROM: - BLKW 1 
TO: - BLKW 
COUNT: .BLKW £ 


~— 


SCOPY: : $ scopy entry point 


.IF DF C$SPRT 


JSR R5,CSSAV 3 save all register 
MOV R5,-(SP) ; save frame pointer 
MOV 4(R5),FROM 3 get source relocated addr pointer 
MOV 6(R5), COUNT $ get byte count 
» ENDC 
CALL SSWSTK,RET $$ switch to system state 
MOV #PARAM , RO $3 Load RO with the acp buffer 
CALL SRELOC $3 relocate the destination address 
MOV R1,R3 $$ move dest relocation bias to R3 
MOV R2,R4 $3; move dest displacement bias to R4 
MOV FROM, RO $$ get pointer to source relocated addr 
MOV (RO)+,R1 $$ move source relocation bias 
MOV (RO) ,R2 33 move source disp bias ( in terms of APR6 ) 
ADD #120000-140000,R2 $3 make it APRS bias 
MOV COUNT, RO 33 move byte count 
CALL SBLXIO $3 move data 
RETURN 33 return to task state 
RET: 
.IF DF C$SPRT 
MOV (SP)+,R5 3 restore frame pointer 
JMP CSRET ; restore register and return 


» ENDC 
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.PSECT CS$TEXT,I,RO 
. EVEN 
.END 
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» LITLE 
» [IDENT 


» PSECT 


C§SPRT=0 


we we we we we we we ws we 


FROM: - BLKW 
TO: - BLKW 
COUNT: .BLKW 


UCOPY:: 


UCOPY 
/01/ 


CSTEXT,I,RO 


ucopy( from, to, count) 
char *from3 
struct rel addr *to}3 
int count$ 


e— 


.IF DF C$SPRT 


JSR 
MOV 
MOV 
MOV 
MOV 


- ENDC 


CALL 
MOV 
CALL 
ADD 
MOV 
MOV 
MOV 
MOV 
CALL 
RETURN 


RET? 


R5,CS$SAV _ 
R5,-(SP) 
4(R5),FROM 
6(R5),TO 
10(R5) , COUNT 


S$SWSTK,RET 
FROM, RO 

SRELOC 
#120000-140000,R 
TO,RO 

(RO)+,R3 

(RO) ,R4 

COUNT, RO 

SBLXIO 


-IF DF CSSPRT 


MOV 
JMP 


» ENDC 


(SP)+,R5 
CSRET 


KO we we we 


we we we we we 


we we we 


we we we we we 
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UCOPY: this routine copies user soictl buffer from the global 
buffer of acp. this routine is "C" callable as 


/* pointer to source buffer */ 
/* pointer to dest relocated addr */ 
/* byte count % / 


; scopy entry point 


save all register 

save frame pointer 

get source addr pointer 

get dest relocted addr pointer 
get byte count 


switch to system state 
load RO with the source buf 
relocate the source address 
$3 make it APR5 bias 
get pointer to dest relocated addr 
move destination relocation bias 
move dest disp bias ( in terms of APR6 ) 
move byte count 
move data 
$3 return to task state 


restore frame pointer 
restore register and return 


Oct 17 16:25 1985 ucopy.mac Page 2 


.PSECT CSTEXT,I,RO 
EVEN 
END 
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UNIBUS = 1 
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»~NLIST SYM 

eNLIST CND 

filename: UNIACP.MAC 


This file contains all the macro routines for incorporating 
the ACP on a UNIBUS machine. 


@é we woe we we 


.TITLE UNIMAC 
-IDENT /01/ 


ASS.UMR 
this routine assigns 3 UMR's for the pool and the message area 
and also loads them and also saves the unibus addresses in 
some global area so that they can be accessed by other routines. 


We WS CWE SOG OO SO 


.MCALL SCBDF$,UCBDF$ 

SCBDF$ ,,SYSDEF 

UCBDF$ 

C$SPRT = 1 

.IF DF RSS$MPL 

S.UNI = S.EMB + 2 

.IFF “$RSSMPL 

S.UNI = S.FRK + 14 

-ENDC 3$RSS$MPL 

SCBDF$ 

epsect c$text,i,ro 
ASS.UMR3:: 


.IF DF C$SPRT 


jsr R5,c$sav 

MOV R5,-(SP) 

»ENDC 

MOV ZEUCB ,R4 3 get UCB address 

MOV U.SCB(R4),R4 ; get SCB address 

MOV #10,S.UNI+M.UMRN(R4) ; no. of UMR's to be allocated 
MOVB PHY.BUF,S.UNI+M.BFVH(R4)$ higher order physical address 
MOV PHY.BUF+2,S.UNI+M.BFVL(R4) 3 lower order address 

MOV #S.UNI,RO ; 

ADD R4,R0 $ point to UMR mapping table 
CALL ~AS.UMR 3; assign the two UMR's 
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TST 
BEQ 
MOV 
MOVB 
MOV 
MOV 
ASH 
MOV 
MOV 
BIC 
ASR 
ASH 
BIC 
BIS 
INC 
MOV 
MOV 
ASH 
BIC 
BIC 
BIS 
ASH 
MOV 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
ADC 
MOV 
MOV 


MOV 
CALL 
BCS 


MOV 
MOV 
MOV 


MOV 
CALL 


TST 
MOV 
MOVB 
MOV 
MOV 


CALL 
TST 
BEQ 


SUCC 
FAILS 


M.UMVL(RO) ,UNI1BUF+2 
M.UMVH(RO) ,UNI1BUF 


UNI1BUF ,R3 
R3,R4 

#-4 ,R4 
R4,UNI1BUF 
UNI 1BUF+2,R4 
#177717,R3 
R3 

#-13.,R4 
#177770,R4 
R4,R3 


R3,R4 

UNI 1BUF+2,R2 
#13.,R3 
#017777 ,R3 
#160000 ,R2 
R2,R3 

#-3 ,R4 
R4,UNI2BUF 
R3,UNI2BUF+2 


M.UMRA(RO),R1 
R1,UMRADD 
PHY. BUF+2,R3 
PHY .BUF , R2 
R3,(R1)+ 
R2,(R1)+ 
#20000 ,R3 

R2 

R3,(R1)+ 
R2,(R1)+ 


#12.,R1 
$ALOCB 
FAILS 


RO, UMRMSG 
#4,M.UMRN(RO) 
RO,-(SP) 


#RMSG.A,-(SP) 
RELOC 


(SP)+ 
(SP)+,R2 
RO,M.BFVH(R2) 
R1,M.BFVL(R2) 
R2,R0 


-AS.UMR 
SUCC 
FAILS 
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ws WS WE CO wD We OF EE 


we We C8 C8 We BO OS COS Oe OO Be OO 8 OH Se (HS 


We We we we we HO Oe Oe we we 


we we we 


we we we 


we we we we we woe we we 


we we we 


was it successful? 

if EQ then no 

save lower order unibus address 

save higher order word 

get higher order address 

copy higher order address 

shift bits 4 and 5 to O and l 

restore the high order address 

lower order address 

mask all but bits 4 & 5 in high order 
get bits 4 & 5 into 3 & 4 

high 3 bits in low 3 bits of low order 
mask remaining bits 

append bits 0,1 & 2 of LO to 3 & 4- HO 
get next UMR nnumber 

save R3 in R4 

get lower order address 

get lower 3 bits in upper 3 

mask out rest of the bits 

mask high 3 bits in lower order addr 
final lower order address in R3 

get bits 3 & 4 in 0 and l 

higher order address 2 bits 

lower order address 16 bits 


get address of lst UMR 

save this address for further use 
save lower order address 

higher order address 

load lower order address 

load higher order address 

add an equ. of 4KW 


load lower order address of next 4kw 
higher order address of next 4kw 


size of UMR ass. block 
allocate it from the system pool 
if CS then no system pool available 


save ptr to ass. block 
No. of UMR's to assign * 4 
save RO 


lst parameter 

call a 'C' callable macro routine 
which returns the physical address 
pop stack 

unsave pointer to UMR ass. block 
higher order physical address 
lower order physical address 
restore RO 


assign the UMR 
was it successful ? 
if EQ no 
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MOV M.UMVL(RO) , UNI .MSG+2 ; lower order unibus address 
MOVB M.UMVH(RO),R4 ; higher order unibus address 
ASH #-4,R4 3; shift bits 4&5 to0&l 
MOV R4,UNI.MSG ; store higher order address 
MOV M.UMRA(RO),R1 ; get UMR address 
MOV M.BFVL(RO),(R1)+ 3 load lower order address 

’ 


MOVB M.BFVH(RO),(R1) load higher order address 


MOV #1,R0 $ return success 
BR RTN 
FAILS: 
MOV #0 ,R0 $ unsuccessful 
RTN: 
eIF DF CS§SPRT 
MOV (SP)+,R5 
jmp c$ret 
-IFF 
RETURN 
» ENDC 
; 
3 »AS.UMR 
; 
; This 'mac' callable routine actually goes int system state 
; to assign the UMR's 
; 
; inputs: 
; RO -> address of UMR assignment block with no. of UMR's * 4 to 
; assign in M.UMRN 
; 
epsect c$data,d,rw 
SUCC: » WORD 0 $; return status 


epsect c$text,i,ro 


~AS.UMR3:: 


SWSTKS 205 33 switch to system state 

CALL SASUMR 33 assign UMR's 

BCS 10$ 33; if CS then it fails 

MOV #1,SUCC $$ indicate success 

RETURN 33 return to task state at 20$ 
108: 

CLR SUCC $3 indicate failure 

RETURN $3 return to task state 
208: 


RETURN 
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REL. POOL 


This 'C' callable routine fills up the relocated address of 
the pool in the global data structures. 


we 26 we we we we 


»psect cS$text,i,ro 
REL. POOLS : 


.IF DF C$SPRT 


jsr R5,c$sav 

»ENDC 

MOV PHY.BUF,RO 3 higher order address 
MOV PHY. BUF+2,R1 3; Lower order address 


ASHC ~— #10. RO 
ASHC #-10.,R1 


calculate rel bias and the disp. 


we we 


MOV RO,RELIBUF ; relocation bias 

ADD #140000,R1 ; set displacement 

MOV R1,REL1IBUF+2 3; store it 

ADD #200,R0 3; add an eq. of 4KW 

MOV RO, REL2BUF ; rel bias for next 4KW 
MOV R1,REL2BUF+2 ; displ bias is same 


.IF DF CSSPRT 
JMP CSRET 
.IFF 

RETURN 


- ENDC 


ACOPY 


This 'C' callable routine is used to Xfer data from one part of the 
physical memory to the other using inputs as the relocated addresses 
of both source and destination. 


INPUTS: 
RO --> source rel addr pointer 
Rl --> destination rel addr pointer 
R2 --> byte count 


we we we we we we we we St SOS SHS SO 


-psect c$text,i,ro 
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ACOPY:$ 
»IF DF CSSPRT 
jsr R5,c$sav 
MOV R5,-(SP) 
MOV 4(R5),R0 
MOV 6(R5),R1 
MOV 10(R5),R2 
- ENDC 
MOV R2,R5 
SWSTK$ RET 
MOV (R1)+,R3 
MOV (R1)+,R4 
MOV (RO)+,R1 
MOV (RO) ,R2 
ADD #120000-140000,R2 
MOV R5,RO 
CALLR $BLXIO 
RET? 
.IF DF CSSPRT 
MOV (SP)+,R5 
jmp c$ret 
LFF 
RETURN 
eENDC 
»psect c$text,i,ro 
-MCALL SREX$S,EXITS$S 
SREX3 $ 
eIF DF CSSPRT 
jsr R5,c$sav 
~ENDC 
SREX$S #DE.UMR 
-IF DF CSSPRT 
jmp c$ret 
.IFF 


RETURN 


we we we we we we we we we 
we we we we we we we we 


source relocated addr pointer 
destination rel addr pointer 
byte count 


save count in R5 
switch to system state 
dest. rel. bias 
dest. displ. bias 
src rel. bias 
src displ. bias 
convert src to APRS bias 
get byte count 
move data and return to task state 
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UMRMSG: 


DE.UMR$ : 


EXIT.3?: 


» ENDC 
«psect 
«WORD 
«psect 
ADD 
MOV 
MOV 
ADD 
CALL 


MOV 
MOV 


CALL 


MOV 
CALL 


EXIT$S 


»psect 


-IF DF 
jsr 

» ENDC 
EXIT$S 
IF DF 
jmp 
LFF 
RETURN 
«ENDC 
epsect 
even 
«psect 


even 


- END 


c$data,d,rw 
0 
c$text,i,ro 
(SP),SP 
ZEUCB,R2 
U.SCB(R2),R2 
#S .UNI ,R2 
$DEUMR 


UMRMSG, R2 
R2,RO 


$DEUMR 


#12.,R1 
$DEACB 


c$text,i,ro 


CSSPRT 


R5,c$sav 


CSSPRT 


c$ret 


c$data,d,rw 


c$text,i,ro 


we 


we we we we 
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address of UMR ass. block for msg area 


cleanup stack 

get UCB address 

get SCB address 

point to UMR ass block for pool area 
deallocate the UMR's 


get ptr of UMR ass block for msg area 
Save it 


deallocate the UMR 


size of this allocated block 
deallocate this blopck back to the sys. pool 


exit properly 
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»ENABLE QUIET 

»DISABLE DISPLAY 

»IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

~IFT $VRBS .DISABLE QUIET 

.IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

-IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 


Assemble and build the ACP code. 


we we we 


»ENABLE SUBSTITUTION 


Prepare the indirect input file for the tkb and ask for the EXOS's 
port A address offset in the I/O page. ( the virtual address of the 
port A is expressed as an offset in the I/O page ). 


e 


e 
we we we we we 


-IFDF $PORT .GOTO 1 
~SETS $PORT "4000" 
-ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] : 


~IFDF $VEC .GOTO 5 

~SETS $VEC "400" 

-ASKS [::$VEC] $VEC Interrupt vector location ? [ D: 400 ] 
038 


Assemble the Macro source code of the ACP. 


we we we 


MAC RWPORT=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY:'<UIC>'RWPORT 
MAC UCOPY=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY:'<UIC>'UCOPY 
MAC SCOPY=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY:'<UIC>'SCOPY 
MAC ACPUCB=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY:'<UIC>'ACPUCB 
MAC RTHMAC=LB:[{1,1]EXEMC/ML,[11,10]RSXMC,SY:'<UIC>'RTHMAC 
MAC DQPKT=LB:[1,1 JEXEMC/ML,[11,10]RSXMC,SY:'<UIC>'DQPKT 
“9 
-} Delete temporary files 
9 

.IFF $DEL .GOTO 10 
PIP ACPUCB.MAC3*/DE 
PIP RTHMAC.MAC3*/DE 
PIP DQPKT.MAC3*/DE 
PIP RWPORT.MAC3*/DE 
PIP SCOPY.MAC3*/DE 
PIP UCOPY.MAC;*/DE 


ee 
So 
ee 


task builds the acp and creates the image file in [1,54] 


e we we we 6 


Create the task builder input definition file 


* e 
we we we 


-OPEN ACPTKB.CMD 

~DATA LB:[1,54]RTHACP/AC:5/-CP= 

DATA RTH/LB:CMDTAB, ACPUCB , DQPKT, RWPORT , RTHMAC , UCOPY , SCOPY 
-DATA SY: '<UIC>'PROLOGUE/LB:CHDR 

-DATA SY:'<UIC>'PROLOGUE/LB,LB:(1,1]JEXELIB/LB 
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-DATA LB:[1,54]RSX11M.STB 

~DATA / 

-DATA UNITS=7 

.DATA TASK=...RTH 

.DATA GBLPAT=CMDTAB: ZEPORT: '$PORT' 
«DATA GBLPAT=CMDTAB:ZEINT: '$VEC' 
.DATA ASG=C00:5 

-DATA // 

. CLOSE 


Task build ACP 


we we we 


IFT $NOPRE PIP LB:[1,54]RTHACP.TSK}3*/DE 
TKB @ACPTKB 


; Delete object files 


PIP ACPUCB.OBJ;*/DE 
PIP DQPKT.OBJ;*/DE 
PIP RWPORT.OBJ3;*/DE 
PIP RTHMAC.OBJ3;*/DE 
PIP UCOPY.OBJ;*,SCOPY.OBJ;*/DE 
PIP ACPTKB.CMD3*/DE 


set appropriate protection for the ACP 


; 

; 

PIP LB:(1,54]RTHACP.TSK/PR/SY:RWED/OW: RWED/GR:RWED/WO:R/FO 
«ENABLE DISPLAY 
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»ENABLE QUIET 

-DISABLE DISPLAY 

.IFNDF $VRBS .ASK §VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

-IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

-IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 


Assemble and build the ACP code. 


Wo we we 


eENABLE SUBSTITUTION 


e 
we we we we we 


Prepare the indirect input file for the tkb and ask for the EXOS's 
port A address offset in the I/O page. ( the virtual address of the 
port A is expressed as an offset in the I/O page ). 


-IFDF $PORT .GOTO 1 
-SETS SPORT "4000" 
-ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] : 


.IFDF §VEC .GOTO 5 

~SETS S$VEC "400" 

~ASKS [::$VEC] $VEC Interrupt vector location ? [ D: 400 ] 
038 


Assemble the Macro source code of the ACP. 


we we we 


3 


RWPORT=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY: '<UIC>'RWPORT 

MAC UCOPY=LB:[1, 1 ]EXEMC/ML,[11,10]RSXMC,SY: '<UIC>'UCOPY 

MAC SCOPY=LB:[1,1]JEXEMC/ML,[11,10]RSXMC,SY:'<UIC>'SCOPY 

MAC ACPUCB=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY: '<UIC>'UNIBUS,ACPUCB 
MAC RTHMAC=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY: '<UIC>'RTHMAC 

MAC DQPKT=LB:[1,1]EXEMC/ML,[11,10]RSXMC,SY: '<UIC>'DQPKT 

MAC UNIMAC=LB:(1,1]EXEMC/ML,{11,10]RSXMC,SY: '<UIC>'UNIMAC 


Delete temporary files 


-IFF $DEL .GOTO 10 
PIP ACPUCB.MAC3*/DE 
PIP RTHMAC.MAC3*/DE 
PIP DQPKT.MAC3*/DE 
PIP RWPORT.MAC3*/DE 
PIP SCOPY.MAC3*/DE 
PIP UCOPY.MAC;*/DE 
PIP UNIBUS.MAC3*/DE 
PIP UNIMAC.MAC3*/DE 


10: 


task builds the acp and creates the image file in [1,54] 


e we we we 6 


e 
we we we 


Create the task builder input definition file 


.OPEN ACPTKB.CMD 
-DATA LB:(1,54]RTHACP/AC:5/-CP= 
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«DATA 
«DATA 
«DATA 
«DATA 


RTH/LB: CMDTAB, ACPUCB , DQPKT, RWPORT , RTHMAC, UCOPY , UNIMAC, SCOPY 
SY: '<UIC>'PROLOGUE/LB:CHDR 

SY: '<UIC>'PROLOGUE/LB,LB:(1,1]JEXELIB/LB 

LB:[1,54]RSX11M.STB 


DATA / 


» DATA 
-DATA 
«DATA 
«DATA 
» DATA 
» DATA 


«CLOSE 


we we we 


UNITS=7 

TASK=...RTH 
GBLPAT=CMDTAB: ZEPORT: '$PORT' 
GBLPAT=CMDTAB: ZEINT: '$VEC' 
ASG=C00:5 

// 


Task build ACP 


.IFT $NOPRE PIP LB:(1,54]RTHACP.TSK;*/DE 


TKB @ACPTKB 


b 
; Delete object files 


PIP ACPUCB.OBJ3*/DE 

PIP DQPKT.OBJ;*/DE 

PIP RWPORT.OBJ3;*/DE 

PIP RTHMAC.OBJ;*/DE 

PIP UCOPY.OBJ;*,SCOPY.OBJ;*/DE 
PIP ACPTKB.CMD3*/DE 

PIP UNIMAC.OBJ3*/DE 


set appropriate protection for the ACP 


; 

; 

PIP LB:(1,54]RTHACP.TSK/PR/SY:RWED/OW: RWED/GR:RWED/WO:R/FO 
»ENABLE DISPLAY 
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RTHACP/AC:5/-CP,RTHACP/-sp/CR= 

RTH/LB: CMDTAB , ACPUCB , DQPKT , RWPORT , RTHMAC ,, UCOPY , SCOPY 
sy:[1,3]PROLOGUE/LB,LB:{1,1]EXELIB/LB 
LB:[1,54]RSX11M.STB 

/ 

UNITS=7 

TASK=...RTH 

GBLPAT=CMDTAB : ZEPORT: 4000 

GBLPAT=CMDTAB : ZEINT : 400 

// 
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skeleton for cmplbr.com 


$ ! 
$ ! 
$ ! 
$ if "''pl'" .nes. "2?" then goto doit 

$ typ sys$input 

command file to compile and link the library 
required command files: None 


required logical names: None 


required parameters: 
pl - default directory (default - current directory) 


required files: 
none 


required symbols: 
none 


Note: 

You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

exit 

doit: 

sv = f$verify(1) 

on error then $ goto abnormal exit 

assign nowhere sys$print 

! 

! now make assignment for RSX11M UNIBUS version 

! 

assign _dra0:[unillm.] 1b: 

assign dra0:[unillm.] 1b0: 


if "''p1l™ eqs. "" then $ pl = "''£$logical("sys$disk")'''£$directory()'" 
set def 'pl' 

show def 

show logical 1b 

! 

! now set up environment for C compiler 

! 

cpp == "mcr cpp" 

cpl == "mer cpl" 

cp2 == "mcr cp2" 


assign dra0:[albert.cutill]lcpp.exe cpp 
assign draO:[albert.cutil]cpl.exe cpl 
assign draO:[albert.cutil]cp2.exe cp2 


! go compile all the files 


lbr rthuni/cr 

mac rwportuni,rwportuni/-sp=1b:[1,1]exemc/m1,1b:[11,10]rsxmc,sy:[1,3]rwport 
mac ucopyuni,ucopyuni/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,3]lucopy 

mac scopyuni,scopyuni/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,3]scopy 

mac acpucbu,acpucbu/-sp=1b:[1,1llexemc/m1,1b:([11,10]rsxmc,sy:(1,3]unibus,acpucb 
mac unimac,unimac/-sp=1b:[1,1]exemc/m1,1b:(11,10]rsxmc,sy:(1,3]unimac 


PAN PAUPAAnAAHMOKHNOGHOONOHATOOOOTKHOE THOM MHONYNM 
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mac rthmacuni,rthmacuni/-sp=1b:[1,1]lexemc/ml,1b:[11,10]rsxmc,sy:(1,3]rthmac 
mac dqpktuni,dqpktuni/-sp=1Lb:[1,1llexemc/ml,1b:[11,10]rsxmc,sy:(1,3]dqpkt 

! 

! C program 

! 

cpp -x -i 1b:[{1,1]|sy:{10,10][sy:[1,3] -o sy:[1,3]cl.tmp sy:(1,3]Ju.h [1,3] body.c 
cpl -o sy:[1,3]c2.tmp sy:[1,3]cl.tmp 

cp2 -o sy:[1,3]c3.tmp sy:[1,3]c2.tmp 

mac body=c3.tmp 

lbr rthuni/rp=body 

delete/log cl.tmp3*,c2.tmp3*,c3.tmp3* 

exit 1 

abnormal exit: 

exit 2 


PAA ARAAHAHKHKHOKHOM OOD 
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$ ! 
$ ! 
$ ! 
$ if "''pl'" .nes. "2" then goto doit 
$ typ sys$input 

command file to build the task image 
required command files: None 


required logical names: None 


required parameters: 
pl - default directory (default - current directory) 


required files: None 
required symbols: None 
exit 
doit: 


sv = f$verify(1) 
on error then $ goto abnormal exit 
assign nowhere sys$print 


if "''pl'" .eqs. "" then $ pl = "''£S$logical("sys$disk")'''f$directory()'" 
set def 'pl' 

show def 

! 

! Put your own commands here 

! 

! Make assignment for QBUS RSX11M 

! 


assign dra0:[qbusllm.] 1b: 

copy/log prologue.sav prologue.olb 

open/write Inkdrv tkb.cmd 

write Inkdrv "RTHACP/AC:5/-CP,RTHACP/-sp/CR=" 

write Inkdrv '"RTH/LB:CMDTAB,ACPUCB,DQPKT,RWPORT,RTHMAC, UCOPY,SCOPY" 
write Inkdrv "sy:[1,3]PROLOGUE/LB,LB:(1,1]EXELIB/LB" 
write Inkdrv "LB:[1,54]RSX11M.STB" 

write Lnkdrv "/" 

write Inkdrv "UNITS=7" 

write Inkdrv "TASK=...RTH" 

write Inkdrv "GBLPAT=CMDTAB:ZEPORT: 4000" 

write lnkdrv "GBLPAT=CMDTAB: ZEINT:400" 

write lnkdrv "//" 

close lnkdrv 

tkb @tkb.cmd 

delete tkb.cmd3 

deassign 1b 

! 

! Make assignment for UNIBUS RSX11M 

q 

assign _dra0:[unillm.] 1b: 

open/write Inkdrv tkb.cmd 

write Lnkdrv "RTHACPUNI/AC:5/-CP,RTHACPUNI/-sp/CR=" 
write Lnkdrv "RTHUNI/LB:CMDTAB, ACPUCBU, DQPKTUNI ,RWPORTUNL" 


PRAHA RAARAHAnHPAHAMOOMAOGKOHKFOHOH EDMAN HAHOKHVNOOHOHOYYDOASHUOS 
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$ write Lnkdrv "RTHMACUNI , UCOPYUNI , SCOPYUNI" 

$ write Inkdrv "UNIMAC" 

$ write Inkdrv "sy:[1,3]PROLOGUE/LB,LB:[1,1JEXELIB/LB" 
$ write Inkdrv "LB:[1,54]RSX11M.STB" 

$ write Inkdrv "/" 

$ write Lnkdrv "UNITS=7" 

$ write Inkdrv "TASK=...RTH" 

$ write Inkdrv "GBLPAT=CMDTAB:ZEPORT:4000" 

$ write Lnkdrv '"GBLPAT=CMDTAB: ZEINT:400" 

write Inkdrv "//" 

close Lnkdrv 

tkb @tkb.cmd 

delete tkb.cmd; 

deassign lb 

! 

! Make assignment for UNIBUS RSX11M-Plus 

! 

assign _dra0:[unillmp.] 1b: 

open/write Inkdrv tkb.cmd 

write lnkdrv "RTHACPUP/AC:5/-CP,RTHACPUP/-sp/CR=" 
$ write Lnkdrv "RTHUP/LB:CMDTAB, ACPUCBU, DQPKTUP,RWPORTUP" 
$ write lnkdrv "RTHMACUP,UCOPYUP,SCOPYUP" 

$ write lnkdrv "UPMAC" 

$ write Inkdrv "sy:[1,3]PROLOGUE/LB,LB:[1,1]EXELIB/LB" 
$ write Inkdrv "LB:[1,54]RSX11M.STB" 

$ write lnkdrv "/" 

$ write Inkdrv "UNITS=7" 

$ write Ilnkdrv "TASK=...RTH" 

$ write Inkdrv "GBLPAT=CMDTAB: ZEPORT: 4000" 

$ write Inkdrv "GBLPAT=CMDTAB: ZEINT: 400" 

write lnkdrv "//" 

close Inkdrv 

tkb @tkb.cmd 

delete tkb.cmd3 

deassign 1b 

exit 1 

abnormal exit: 

deassign 1b 

exit 2 


GH A GU OF ON 


i MA MA MD A OH I 
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skeleton for cmplbr.com 


£ "''pi'" .nes. "2?" then goto doit 


$! 
$! 
$ ! 
$ i 
$ typ sys$input 


command file to compile and link the library 
required command files: None 
required logical names: None 


required parameters: 
pl - default directory (default - current directory) 


required files: 
none 


required symbols: 
none 


Note: 
You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

exit 

doit: 

sv = f$verify(1) 

on error then $ goto abnormal exit 

assign nowhere sys$print 

! 

! now make assignment for RSX11M Q-bus version 

! 

assign _dra0:{qbusllm.] 1b: 

assign dra0:[qbusllm.] 1b0: 

if "''pI™ eqs. "" then § pl = "''£$logical("sys$disk")'''f£$directory()'" 

set def 'pl' 

show def 

show logical lb 

! 


! now set up environment for C compiler 
! 


cpp 


== "mcr cpp" 
cpl == "mcr cpl" 
cp2 == "mcr cp2" 


assign draO:[albert.cutil]cpp.exe cpp 
assign draO:[albert.cutil]cpl.exe cpl 
assign draO:[albert.cutil ]cp2.exe cp2 
! 

! go compile all the files 


lbr rth/cr 

mac rwport,rwport/-sp=1b:[1,1llexemc/ml,1b:[11,10]rsxmc,sy:{1,3]rwport 
mac ucopy,ucopy/-sp=1b:[1,1]lexemc/ml,1b:[11,10]rsxmc,sy:[1,3]ucopy 
mac scopy,scopy/-sp=1b:[1,1lJlexemc/ml,1b:[11,10]rsxmc,sy:[1,3]scopy 
mac acpucb,acpucb/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,3]acpucb 
mac rthmac,rthmac/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,3]rthmac 


DADA DDN MDMAA AHAAMHMHDMAOHH PHM PHMHM 
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mac dqpkt ,dqpkt/-sp=1b:[1,1]exemc/ml,1b:[11,10]rsxmc,sy:[1,3]dqpkt 
! 

! C program 

! 

cpp -x -i 1b:[1,1]|sy:([10,10]|sy:[1,3] -o sy:[1,3]cel.tmp sy:[1,3]body.c 
cpl -o sy:{1,3]c2.tmp sy:[1,3]cl.tmp 

cp2 -o sy:[1,3]c3.tmp sy:[1,3]c2.tmp 

mac body=c3.tmp 

lbr rth/rp=body 

delete/log cl.tmp3*,c2.tmp3*,c3.tmp3* 

@altcmplbr 

@Qumpcmplbr 

exit 1 

abnormal exit: 

exit 2 


PAAR PHRMAAKHNPANYNDM 
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$ 
$ 
$ 
$ 
$ 


PARnRKHAOKNMNO OOOO rOAoOnrnoeonwsTn 


! 
! 
! 
i 


required files: 


exit 
doit: 


f sc > ieee 
typ sys$input 


eN€Se 


skeleton for deliver.com 


Wott 


required command files: 


required logical names: 
exos$mfzg 


None 


None 


then goto doit 


command file to copy the deliver files to manufacturing area 
You should modify this file to copy the deliverables to 
exos$mfg:(target directory] 


- pseudo disk for deliverables 


required parameters: Noe 


None 


required symbols: None 


sv = f£$verify(0) 
on error then § goto abnormal exit 
assign nowhere sys$print 


show def 

! 

! Put your own commands here 

! 

copy/log bldacp.cmd exos$mfg:[rsx] 

copy/log rth.olb exos$mfg:[rsx] 

copy/log rwport.mac exos$mfg:[rsx] 

copy/log ucopy.mac exos$mfg:[rsx] 

copy/log scopy.mac exos$mfg:[rsx] 

copy/log acpucb.mac exos$mfg:[rsx] 

copy/log rthmac.mac exos$mfg:[rsx] 

copy/log dqpkt .mac exos$mfg:[rsx] 

copy/log prologue.olb exos$mfg:[rsx] 

copy/Log unibus.mac exos$mfg:[rsxunibus ] 
copy/log rthuni.olb exos$mfg:[rsxunibus ]rth.olb 
copy/log unimac.mac exos$mfg:[rsxunibus | 
copy/log blduni.cmd exos$mfg:(rsxunibus ]bldacp.cmd 


exit l 


abnormal exit: 


exit 2 
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PARANA AMNANAOAMAOONOOOOOUH ONY HHO HOM KHM W 


skeleton for cmplbr.com 


! 
! 
! 
if "''pl'" .nes. "2?" then goto doit 
typ sys$input 


command file to compile and link the library 
required command files: None 
required logical names: None 


required parameters: 
pl - default directory (default - current directory) 


required files: 
none 


required symbols: 
none 


Note: 
You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

exit 

doit: 

sv = f$verify(1) 

on error then $ goto abnormal exit 

assign nowhere sys$print 

! 

! now make assignment for RSX11M-Plus UNIBUS version 

! 

assign dra0:[unillmp.] 1b: 

assign dra0:{unillmp.] 1b0: 

if "''pl™ .eqs. "" then $ pl = "''£$logical("sys$disk")'''f£$directory()'" 

set def 'pl' 

show def 

show logical 1b 

! 


! now set up environment for C compiler 
! 

cpp == "mcr cpp" 

cpl == "mcr cpl" 

cp2 == "mer cp2" 

assign draO:[albert.cutil ]cpp.exe cpp 
assign draO:[albert.cutil]cpl.exe cpl 
assign dra0:[albert.cutil]cp2.exe cp2 

! 

! go compile all the files 


Lbr rthup/cr 

mac rwportup,rwportup/-sp=1b:L1,1]Jexemc/ml,1b:[11,10]rsxmc,sy:{1,3]rwport 
mac ucopyup,ucopyup/-sp=1b:[1,llexemc/ml,1b:[11,10]rsxmc,sy:[1,3]lucopy 
mac scopyup,scopyup/-sp=1b:[1,1llexemc/ml,1b:[11,10]rsxmc,sy:[1,3] scopy 


mac upmac,upmac/-sp=Lb:[1,llexemc/m1,1b:(11,10]rsxmc,sy:[1,3]unimac 


mac acpucbu,acpucbu/-sp=1b:[1,1]Jexemc/ml,1b:({11,10]rsxmc,sy:([1,3]Junibus,acpucb 


Oct 17 16:26 1985 umpcmplbr.com Page 2 


mac rthmacup,rthmacup/-sp=1b:[1,1]exemc/mi,1b:[11,10]rsxmc,sy:(1,3]rthmac 
ac dqpktup,dqpktup/-sp=1b:[1,1]exemc/ml,1b:(11,10]rsxmc,sy:[1,3]dqpkt 


C program 


cpp -x -i 1b:[1,1]|sy:[10,10]|sy:[1,3] -o sy:(1,3]cl.tmp sy:[1,3]Ju.h [1,3]body.c 
cpl -o sy:[1,3]e2.tmp sy:{1,3]cl.tmp 

-o sy:(1,3]c3.tmp sy:[1,3]c2.tmp 

mac body=c3.tmp 

lbr rthup/rp=body 

delete/log cl.tmp3*,c2.tmp3*,c3.tmp3* 

exit 1 

abnormal exit: 

exit 2 


PAAADPRAAHMOAHMOD DH 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 
SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 


s we we we we 


e 
Wwe we Ce Ce WH CUP We We we WS OH SO HS OS HO 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 


EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 
.ENABLE QUIET 
~ENABLE LOWERCASE 
~ENABLE GLOBAL 
»ENABLE SUBSTITUTION 
~IFT <PRIVIL> .GOTO 5 
; Error: You must be privileged in order to install EXOS 8030 software. 
e EXIT 
258 
~DISABLE DISPLAY 
.ASK $VRBS Verbose? [Y/N] 
-IFT $VRBS .DISABLE QUIET 
-ASK $NOPRE Delete previous version of EXOS software? [Y/N] 
-ASK $DEL Delete source file from current UFD in target disk? [Y/N] 
-ASK $DRV Build driver and ACP only? [Y/N] 
.SETS $VEC "400" 
-ASKS [::$VEC] $VEC Interrupt vector location ? [ D: 400 ] 
-SETS $PORT ''4000" 
.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 
-SETN SSESS 1 
-ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D: 1] 


This command file copies the required files from the distribution 
floppy 


es ws we we we 


Ask for source device name 
-ASKS  $DEV Copy from device [ddnn:]: 


; 

23 check if the device is mounted and mount if necessary 
25 

» TESTDEVICE "SDEV' 

»TEST <EXSTRI> "MTD" 

IF <STRLEN> NE O .GOTO 10 


; 
ss device not mounted 
; 
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MOU 'SDEV'EXOS1 


es ~e w 


start copy 

a) : 

10: 

PIP /NV/CD='$DEV'[1,1]BLDDRV.CMD/NM 
PIP /NV/CD='$DEV'[1,1]ZEDRV.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ZETAB.MAC/NM 
PIP /NV/CD='$DEV'[1,1]RTH.OLB/NM 
PIP /NV/CD='$DEV'[1,1 ]ACPUCB.MAC/NM 
PIP /NV/CD='$DEV'[1,1]DQPKT.MAC/NM 
PIP /NV/CD='$DEV'[1,1]RWPORT.MAC/NM 
PIP /NV/CD='$DEV'[1,1]SCOPY.MAC/NM 
PIP /NV/CD='$DEV'[1,1]UCOPY.MAC/NM 
PIP /NV/CD='$DEV'[1,1]RTHMAC.MAC/NM 
PIP /NV/CD='$DEV'[1,1]BLDACP.CMD/NM 
PIP /NV/CD='$DEV'[1,1]PROLOGUE.OLB/NM 
PIP /NV/CD='$DEV'[1,1]bldzt.cmd/NM 
DMO 'SDEV' 


Please mount floppy labelled EXOS2 in '$DEV' 


WS we we 


~ASK MONT Press return when ready: 
MOU 'SDEV'EXOS2 

PIP /NV/cD='$DEV'[1,1]zttab.MAC/NM 
PIP /NV/CD='$DEV'[1,1llztyt.MAC/NM 

PIP /NV/CD='$DEV'[1,1]ztini.MAC/NM 
PIP /NV/cD='$DEV'[1,1]ztrw.MAC/NM 

PIP /NV/CD='$DEV'[1,1]ztich.MAC/NM 
PIP /NV/CD='SDEV'[1,1]ztcan.MAC/NM 
DMO 'SDEV' 


Please mount floppy labelled EX0S3 in 'SDEV' 


we we wes 


»ASK MONT Press return when ready: 
MOU 'SDEV'EX0S3 

PIP /NV/CD='$DEV'[1,1l]ztatt.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztois.MAC/NM 
PIP /NV/CD='$DEV'([1,1]ztdat.MAC/NM 
PIP /NV/CD='S$DEV'[1,1]zttbl.MAC/NM 
PIP /NV/CD='S$DEV'[1,1]ztsub.MAC/NM 
PIP /NV/CD='$DEV'[1,1l]ztcis.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztfp.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztodn.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztmis.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztmod.MAC/NM 
PIP /NV/CD='SDEV'[1,1]ztmac.MAC/NM 


a build the driver 


°9 
@BLDDRV 

-IFT $DEL PIP BLDDRV.CMD;/DE 

“3 

Pe build the pseudo-terminal driver 
@BLDZT 
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IFT $DEL PIP BLDZT.CMD3;/DE 
°9 

build the ACP 

“9 

@BLDACP 

IFT $DEL .AND .IFT $DRV PIP PROLOGUE.OLB3;/DE 
IFT $DEL PIP RTH.OLB3/DE 
IFT $DEL PIP BLDACP.CMD;/DE 
“9 

os Now copy utilities to various destination location 
9 

IFT $DRV DMO 'SDEV' 

IFT $DRV .EXIT 

202 

eASKS DESTUI Please enter the UFD for the EXOS utilities 
IF DESTUI = "" .GOTO 20 

“9 

73 Copy task image 

°9 

-IFF $NOPRE .GOTO 25 

PIP 'DESTUI'ARP.TSK3*/DE 

PIP 'DESTUI'BSTAT.TSK3*/DE 
PIP 'DESTUI'NETLOAD.TSK3*/DE 
PIP 'DESTUI'NETSTAT.TSK3*/DE 
PIP 'DESTUIL'TTCP.TSK3*/DE 

PIP 'DESTUI'XROUTE.TSK3*/DE 
PIP 'DESTUI'FTPC.TSK3*/DE 

PIP 'DESTUI'FTPDEMON.TSK3;*/DE 
PIP 'DESTUI'TELNET.TSK3*/DE 
PIP 'DESTUI'LOGIN.TSK3;*/DE 
PIP 'DESTUI'FTPD.TSK3*/DE 

Pe do ie 

DMO 'SDEV' 


Please mount floppy labelled EXOS4 in 'S$DEV' 


we we we 


~ASK MONT Press return when ready: 

MoU 'SDEV'EXOS4 

PIP /FO/NV/CD='$DEV'[1,1]LOGIN.OLB/NM 
PIP /FO/NV/CD='$DEV'[1,1]PASWORD.MAC/NM 
PIP /FO/NV/CD='$DEV'[1,1]JACTFIL.MAC/NM 
PIP /FO/NV/CD='$DEV'[1,1]BLDLGN.CMD/NM 
@BLDLGN 

IFT $DEL PIP LOGIN.OLB3*/DE 

IFT $DEL PIP BLDLGN.CMD3;*/DE 

PIP 'DESTUI'/FO/CO/NV/CD=SY: '<UIC>'LOGIN.TSK/NM 
PIP LOGIN.TSK;/DE/NM 

PIP /FO/NV/CD='$DEV'[1,1]DEMON.OLB/NM 
PIP /FO/NV/CD='$DEV'[1,1 ]RECVAST .MAC/NM 
PIP /FO/NV/CD='S$DEV'[1,1]BLDDEM.CMD/NM 
PIP /FO/NV/CD='$DEV'[1,1]DEMON.MAC/NM 
@BLDDEM 

-IFT $DEL PIP DEMON.OLB3*/DE 

-3-1FT $DEL PIP RECVAST.MAC3*/DE 

.IFT $DEL PIP BLDDEM.CMD3*/DE 

IFT $DEL PIP PROLOGUE.OLB;*/DE 
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PIP 'DESTUI'/FO/CO/NV/CD=SY: '<UIC>'FTPDEMON.TSK/NM 
PIP FTPDEMON.TSK;/DE/NM 

PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]ARP.TSK/NM 

PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]BSTAT.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='S$DEV'[1,1]NETLOAD.TSK/NM 
DMO 'SDEV' 


Please mount floppy labelled EXOS5 in '$DEV' 


we we we 


~ASK MONT Press return when ready: 

MOU '$DEV'EXOSS 

PIP 'DESTUL'/FO/CO/NV/CD='$DEV'[1,1]NETSTAT.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]TTCP.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]XROUTE.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]FTPC.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]TELNET.TSK/NM 
DMO 'SDEV' 


Please mount floppy labelled EXOS6 in '$DEV' 


we we we 


-ASK MONT Press return when ready: 
MOU 'SDEV'EXOS6 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]FTPD.TSK/NM 


copy specific programs 


eovwew 


9 

IFT $NOPRE PIP 'DESTUI'RHOST.C3*/DE 

IFT $NOPRE PIP 'DESTUI'RADDR.C3*/DE 

IFT $NOPRE PIP 'DESTUI'SOCKET.C3*/DE 

IFT $NOPRE PIP 'DESTUI'TTCP.C3*/DE 

IFT $NOPRE PIP 'DESTUI'TTCP.H3*/DE 

IFT $NOPRE PIP LB:[1,2]NET.3*/DE 

IFT $NOPRE PIP 'DESTUI'8030.HLP3;*/DE 

PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]RHOST.C/NM 
PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]RADDR.C/NM 
PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]SOCKET.C/NM 
PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]TTCP.C/NM 
PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]TTCP.H/NM 
PIP LB:[1,2]/FO/NV/CD='$DEV'[1,1]NET./NM 

PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]8030.HLP/NM 
-ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 
.IFF INITHO .GOTO SETLD 

.IFT $NOPRE PIP LB:[1,1]HOSTS.NET3;*/DE 

PIP LB:[1,1]/FO/NV/CD='$DEV'[1,1]HOSTS.NET/NM 
.OPENA LB:[1,1]HOSTS.NET 

eASKS HNAME Name of host 

~ASKS HADDR Host internet address 

DATA 'HADDR' 'HNAME' localhost 

«CLOSE 

.IFT $NOPRE PIP LB:[1,1]HOSTLOCAL.NET;*/DE 
PIP LB:(1,1]/FO/NV/CD='$DEV'[1,1]HOSTLOCAL.NET/NM 


Write out the EXOSLOAD command file 


e 
e¢ wo ww 


* 9 
.SETLD: 
IFT $NOPRE PIP LB:[1,1]EXOSLOAD.CMD;*/DE 


Oct 


-80$ 


895 
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OPEN LB:[1,1]EXOSLOAD.CMD 
DATA .ENABLE SUBSTITUTION 
~DATA .IFACT DEMTO ABO DEMTO 
DATA .IFACT LGNTO ABO LGNTO 
~DATA .IFACT ...DEM ABO ...DEM 
-DATA .IFACT ...LGN ABO ...LGN 
-SETN LCOUNT 0 


-IF LCOUNT >= 'SSESS' .GOTO 89$ 

-DATA .IFACT FTDOO'LCOUNT' ABO FTDOO'LCOUNT' 
~DATA .IFINS FTDOO'LCOUNT' REM FTDOO'LCOUNT' 
-DATA .IFINS XDROO'LCOUNT' REM XDROO'LCOUNT' 
INC LCOUNT 

GOTO 80$ 


»DATA .IFINS ...DEM REM ...DEM 
~DATA .IFINS ...ARP REM ...ARP 
~DATA .IFINS ...BST REM ...BST 
~DATA .IFINS ...FTP REM ...FTP 
~DATA .IFINS ...NET REM ...NET 
-DATA .IFINS ...TEL REM ...TEL 
.DATA .IFINS ...TTC REM ...TTC 
-DATA .IFINS ...ROU REM ...ROU 
~DATA .IFINS ...NST REM ...NST 
.DATA .IFINS ...LGN REM ...LGN 
~DATA .IFACT ...RTH ABO ...RTH 
-DATA .IFACT RTHTO ABO RTHTO 
~DATA .IFINS ...RTH REM ...RTH 
»DATA .IF <SYSTEM> <> 6 .GOTO 10$ 
»DATA .IFLOA ZE: CON OFFLINE ZEA 
-DATA .IFLOA ZE: CON OFFLINE ZEO: 
-DATA .IFNLOA ZT: .GOTO 10$ 
-DATA CON OFFLINE ZTA 

~DATA CON OFFLINE ZTB 

-DATA CON OFFLINE ZTC 

-DATA CON OFFLINE ZTD 

-DATA CON OFFLINE ZTE 

-DATA CON OFFLINE ZTF 

~DATA CON OFFLINE ZTH 

DATA CON OFFLINE ZTJ 

-DATA CON OFFLINE ZTO: 

-DATA CON OFFLINE 2ZT1: 

»DATA CON OFFLINE ZT2: 

~DATA CON OFFLINE 2ZT3: 

»~DATA CON OFFLINE ZT4: 

~DATA CON OFFLINE ZT5: 

-DATA CON OFFLINE ZT6: 

-DATA CON OFFLINE ZT7: 

-DATA .10S: 

»DATA .IFLOA ZE: UNL ZE: 

~DATA .IFLOA ZT: UNL ZT: 

»DATA LOA ZE:/PAR=GEN/HIGH/SIZE=20000 
»DATA .IF <SYSTEM> <> 6 LOA ZT: 
»DATA .IF <SYSTEM> <> 6 UNL ZT: 
-DATA ; You can ignore the error message: 'Loadable driver larger than 4KW" 
-DATA LOA ZT: /HIGH/SIZE=20000 


Oct 


~90$ 


~99$ 


e we we we wee we we wt we we 


° e 
we we we we 
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DATA .IF <SYSTEM> <> 6 .GOTO 20$ 
«DATA $3 configure the devices online 
»DATA CON ONLINE ZEA 

»DATA CON ONLINE ZEO: 

-DATA CON SET ZTA VEC=0 

«DATA CON SET ZTB VEC=0 

-DATA CON SET ZTC VEC=0 

»DATA CON SET ZTD VEC=0 

~DATA CON SET ZTE VEC=0 

-DATA CON SET ZTF VEC=0 

»DATA CON SET ZTH VEC=0 

~DATA CON SET ZTJ VEC=0 

-DATA CON ONLINE ALL 

~DATA .208: 

-DATA INS $RTHACP/PRI=150. 

~DATA .XQT RTH 

-DATA INS 'DESTUI'ARP.TSK 

-DATA INS 'DESTUI'BSTAT.TSK 

-DATA INS 'DESTUI'FTPC.TSK 

~DATA INS 'DESTUI'FTPDEMON.TSK 
-DATA INS 'DESTUI'NETLOAD.TSK 
-DATA INS 'DESTUI'TELNET.TSK 
~DATA INS 'DESTUI'TTCP.TSK 

»DATA INS 'DESTUI'XROUTE.TSK 
-DATA INS 'DESTUI'NETSTAT.TSK 
-DATA INS 'DESTUI'LOGIN.TSK 

»SETN LCOUNT 0 

»DATA .SETS FTDOPT '"" 

~DATA .IF <SYSTEM> = 6 .SETS FTDOPT '"/XHR=NO" 


-IF LCOUNT >= 'S$SESS' .GOTO 99$ 

-DATA INS 'DESTUI'FTPD.TSK/TASK=FTDOO'LCOUNT'''FTDOPT'' 
-DATA INS $PIP/TASK=XDROO'LCOUNT' 

INC LCOUNT 

-GOTO 90$ 


-DATA .ASK DWN Do you want to initialize the EXOS front end processor 
~DATA .IFT DWN net 

-DATA .ASK DMN Do you want to start the FTP server 

.DATA .IFT DMN .XQT dem 

-DATA .IFT DMN .XQT lgn 

- CLOSE 

PIP LB:(1,1]EXOSLOAD.CMD/PR/FO 


Please add the following line to LB:[1,2]STARTUP.CMD so that the 
network is reloaded everytime the system is rebooted. 


@LB:[1,1]EXOSLOAD 


You may need to edit the file LB:[1,1]EXOSLOAD.CMD to set up the 
options in loading the network module. 


dismount device 
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DMO '$DEV' 


Installation completed. Now you can execute 
@LB:[1,1]JEXOSLOAD 
to start up the network connection. 


we we we we 
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e Wwe we we we 


s 
we we we we we CO ws we we Ce ws we we Oe HE 


COPYRIGHT (c) 1985 BY EXCELAN, INC. 
SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 


EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 


NOT SUPPLIED BY EXCELAN, INC. 
»ENABLE QUIET 
-ENABLE LOWERCASE 
-ENABLE GLOBAL 
-ENABLE SUBSTITUTION 


IFT <PRIVIL> .GOTO 5 


; Error: You must be privileged in order to install EXOS 8030 software. 


- EXIT 


e5% 


e we we we we 


°9? 


DISABLE DISPLAY 
-ASK $VRBS Verbose? [Y/N] 
IFT $VRBS .DISABLE QUIET 


-ASK $NOPRE Delete previous version of EXOS software? [Y/N] 


-ASK $DEL Delete source file from current UFD in target disk? [Y/N] 


-ASK $DRV Build driver and ACP only? [Y/N] 
SETS $VEC ''400" 


-ASKS [::$VEC] $VEC Interrupt vector location ? [ D 


~SETS $PORT ''4000" 


-ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D 


~SEIN $SESS 1 


-ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D 


This command file copies the required files from the distribution 


floppy 


Ask for source device name 


-ASKS  $DEV Copy from device [ddnn:]: 


check if the device is mounted and mount if necessary 


»TESTDEVICE 'S$DEV' 
-TEST <EXSTRI> "MTD" 
~IF <STRLEN> NE 0 .GOTO 10 


device not mounted 


400 ] 


4000 ] 


1] 
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MOU 'SDEV'EXOS1 


start copy 


evws w 


“9 

103 

PIP /NV/CD='$DEV'[1,1]BLDDRV.CMD/NM 
PIP /NV/CD='$DEV'[1,1]UNIBUS.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ZEDRV.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ZETAB.MAC/NM 
PIP /NV/cD='$DEV'[1,1]RTH.OLB/NM 
PIP /NV/CD='$DEV'[1,1]ACPUCB.MAC/NM 
PIP /NV/CD='S$DEV'[1,1]DQPKT.MAC/NM 
PIP /NV/CD='$DEV'[1,1]RWPORT.MAC/NM 
PIP /NV/CD='$DEV'[1,1]UNIMAC.MAC/NM 
PIP /NV/CD='$DEV'[1,1]SCOPY.MAC/NM 
PIP /NV/CD='$DEV'[1,1]UCOPY.MAC/NM 
PIP /NV/CD='$DEV'([1,1]RTHMAC.MAC/NM 
PIP /NV/CD='$DEV'[1,1]BLDACP.CMD/NM 
PIP /NV/CD='$DEV'[1,1]PROLOGUE.OLB/NM 
PIP /NV/cD='$DEV'[1,1]bldzt.cmd/NM 
DMO ‘'SDEV' 


Please mount floppy labelled EXOS2 in 'S$DEV' 


we we we 


-ASK MONT Press return when ready: 
MOU 'SDEV'EXOS2 

PIP /NV/CD='$DEV'[1,1]zttab.MAC/NM 
PIP /NV/CD="$DEV'[1,1l]ztyt.MAC/NM 

PIP /NV/CD='$DEV'[1,1]ztini.MAC/NM 
PIP /NV/CD='$DEV'[1,1Jztrw.MAC/NM 

PIP /NV/CD="S$DEV'[1,1]ztich.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztcan.MAC/NM 
DMO 'SDEV' 


Please mount floppy labelled EX0S3 in 'S$DEV' 


we we we 


eASK MONT Press return when ready: 
MOU 'S$DEV'EXOS3 

PIP /NV/CD='$DEV'[1,1]ztatt.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztois.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztdat.MAC/NM 
PIP /NV/CD='$DEV'[1,1]zttbl.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztsub.MAC/NM 
PIP /NV/CD='$DEV'[1,l]ztcis.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztfp.MAC/NM 

PIP /NV/CD='$DEV'[1,1]ztodn.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztmis.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztmod.MAC/NM 
PIP /NV/CD='$DEV'[1,1]ztmac .MAC/NM 


“ build the driver 


*9 
@BLDDRV 
IFT $DEL PIP BLDDRV.CMD;/DE 


° 
*9 
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as build the pseudo-terminal driver 
@BLDZT 

~IFT $DEL PIP BLDZT.CMD;/DE 

“3 

3 build the ACP 

“3 

@BLDACP 

-IFT $DEL .AND .IFT $DRV PIP PROLOGUE.OLB3/DE 
~IFT $DEL PIP RTH.OLB3/DE 

IFT $DEL PIP BLDACP.CMD;/DE 


ewe we 


Now copy utilities to various destination location 
9 

.IFT $DRV DMO '$DEV' 

-IFT S$DRV .EXIT 

203 

-ASKS DESTUI Please enter the UFD for the EXOS utilities 
-IF DESTUI = '""' ,GOTO 20 


Copy task image 


eo we w 


“9 

-IFF $NOPRE .GOTO 25 

PIP 'DESTUI'ARP.TSK3*/DE 

PIP 'DESTUI'BSTAT.TSK3*/DE 
PIP 'DESTUI'NETLOAD.TSK3*/DE 
PIP 'DESTUI'NETSTAT.TSK3*/DE 
PIP 'DESTUI'TTCP.TSK;*/DE 
PIP 'DESTUI'XROUTE.TSK3*/DE 
PIP 'DESTUI'FTPC.TSK3;*/DE 
PIP 'DESTUI'FTPDEMON.TSK3*/DE 
PIP 'DESTUI'TELNET.TSK3*/DE 
PIP 'DESTUI'LOGIN.TSK;*/DE 
PIP 'DESTUI'FTPD.TSK3*/DE 
253 

DMO ‘S$DEV' 


Please mount floppy labelled EXOS4 in '$DEV' 


ws we we 


-ASK MONT Press return when ready: 

MOU 'SDEV'EXOS4 

PIP /FO/NV/CD='$DEV'[1,1]LOGIN.OLB/NM 
PIP /FO/NV/CD='$DEV'[1,1]PASWORD.MAC/NM 
PIP /FO/NV/CD='$DEV'[1,1]ACTFIL.MAC/NM 
PIP /FO/NV/CD='$DEV'[1,1]BLDLGN.CMD/NM 
@BLDLGN 

IFT $DEL PIP LOGIN.OLB3*/DE 

-IFT $DEL PIP BLDLGN.CMD3*/DE 

PIP 'DESTUI'/FO/CO/NV/CD=SY: '<UIC>'LOGIN.TSK/NM 
PIP LOGIN.TSK3/DE/NM 

PIP /FO/NV/CD='$DEV'[1,1]DEMON.OLB/NM 
PIP /FO/NV/CD='$DEV'[1,1]RECVAST.MAC/NM 
PIP /FO/NV/CD='$DEV'[1,1]BLDDEM.CMD/NM 
PIP /FO/NV/CD='S$DEV'[1,1]DEMON.MAC/NM 
@BLDDEM 

IFT $DEL PIP DEMON.OLB3*/DE 

.3IFT $DEL PIP RECVAST.MAC3*/DE 
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~IFT $DEL PIP BLDDEM.CMD;*/DE 

-IFT $DEL PIP PROLOGUE.OLB3;*/DE 

PIP 'DESTUI'/FO/CO/NV/CD=SY: '<UIC>'FTPDEMON.TSK/NM 
PIP FTPDEMON.TSK3/DE/NM 

PIP 'DESTUL'/FO/CO/NV/CD='$DEV'[1,1]ARP.TSK/NM 

PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]BSTAT.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]NETLOAD.TSK/NM 
DMO 'S$DEV' 


Please mount floppy labelled EXOS5 in 'S$DEV' 


we we we 


-ASK MONT Press return when ready: 

MOU 'S$DEV'EXOSS 

PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]NETSTAT.TSK/NM 
PIP 'DESTUL'/FO/CO/NV/CD='$DEV'[1,1]TTCP.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]XROUTE.TSK/NM 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]FTPC.TSK/NM 
PIP 'DESTUL'/FO/CO/NV/CD='$DEV'[1,1]TELNET.TSK/NM 
DMO 'SDEV' 


Please mount floppy labelled EXOS6 in '$DEV' 


we we we 


-ASK MONT Press return when ready: 
MOU 'SDEV'EXOS6 
PIP 'DESTUI'/FO/CO/NV/CD='$DEV'[1,1]FTPD.TSK/NM 


eo we we 


copy specific programs 

e9 

-IFT $NOPRE PIP 'DESTUI'RHOST.C3*/DE 

IFT $NOPRE PIP 'DESTUI'RADDR.C3*/DE 

IFT $NOPRE PIP 'DESTUI'SOCKET.C3*/DE 

IFT $NOPRE PIP 'DESTUI'TTCP.C3*/DE 

IFT $NOPRE PIP 'DESTUI'TTCP.H3*/DE 

IFT $NOPRE PIP LB:[1,2]NET.3*/DE 

~IFT $NOPRE PIP 'DESTUI'8030.HLP3*/DE 

PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]RHOST.C/NM 
PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]RADDR.C/NM 
PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]SOCKET.C/NM 
PIP 'DESTUI'/FO/NV/CD='$DEV'[1,1]TTCP.C/NM 
PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]TTCP.H/NM 
PIP LB:[1,2]/FO/NV/CD='$DEV'[1,1]NET./NM 

PIP 'DESTUL'/FO/NV/CD='$DEV'[1,1]8030.HLP/NM 
ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 
.IFF INITHO .GOTO SETLD 

-IFT $NOPRE PIP LB:[1,1]HOSTS.NET3*/DE 

PIP LB:[1,1]/FO/NV/CD='$DEV'[1,1]HOSTS.NET/NM 
.OPENA LB:[1,1]HOSTS.NET 

~ASKS HNAME Name of host 

~ASKS HADDR Host internet address 

-DATA 'HADDR' 'HNAME' localhost 

. CLOSE 

IFT $NOPRE PIP LB:[1,1]HOSTLOCAL.NET3*/DE 
PIP LB:{1,1]/FO/NV/CD='$DEV'[1,1]HOSTLOCAL.NET/NM 


; 
es Write out the EXOSLOAD command file 
; 
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.SETLD: 
IFT $NOPRE PIP LB:[1,1]EXOSLOAD.CMD;*/DE 

-OPEN LB:[1,1]EXOSLOAD.CMD 

-DATA .ENABLE SUBSTITUTION 

-DATA .IFACT DEMTO ABO DEMTO 

~DATA .IFACT LGNTO ABO LGNTO 

-DATA .IFACT ...DEM ABO ...DEM 

-DATA .IFACT ...LGN ABO ...LGN 

-SETN LCOUNT 0 
8083 

IF LCOUNT 
»-DATA .IFACT 
-DATA .IFINS 
DATA .IFINS 
INC LCOUNT 


>= 'S$SESS' .GOTO 895 

FTDOO'LCOUNT' ABO FTDOO'LCOUNT' 
FTDOO'LCOUNT' REM FTDOO'LCOUNT' 
XDROO'LCOUNT' REM XDROO'LCOUNT' 


-GOTO 
8983 
»DATA 
-DATA 
»DATA 
-DATA 
-DATA 
~ DATA 
DATA 
»DATA 
- DATA 
~ DATA 
~DATA 


80$ 


-IFINS 
-IFINS 
eI FINS 
-IFINS 
eIFINS 
eIFINS 
eIFINS 
-IFINS 
eIFINS 
eIFINS 
~ I FACT 


ee «DEM 
« « eARP 
-e «BST 
- ee PTP 
oe NET 
oe - LTEL 
eee TTC 
» » ROU 
oe NST 
«« «LGN 
-« «RTH 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
ABO 


«+ «DEM 
ee eARP 
e+ BST 
eee FTP 
«NET 
oe e LEL 
eee lTC 
e+ «ROU 
ee NST 
» + «LGN 
«+ «RTH 


- DATA 
-DATA 
~DATA 
- DATA 
»DATA 
-DATA 
» DATA 
-DATA 
» DATA 
- DATA 
-DATA 
»DATA 
»DATA 
~DATA 
DATA 
» DATA 
-DATA 
»DATA 
»~ DATA 
~DATA 
»DATA 
-DATA 
»DATA 
~DATA 
»DATA 
»DATA 
~DATA 
»DATA 


-IFACT RTHTO ABO RTHTO 
-IFINS ...RTH REM ...RTH 
IF <SYSTEM> <> 6 .GOTO 10$ 
~IFLOA ZE: CON OFFLINE ZEA 
eIFLOA ZE: CON OFFLINE ZEO0: 
~IFNLOA ZT: .GOTO 105 

CON OFFLINE ZTA 

CON OFFLINE ZTB 

CON OFFLINE ZTC 

CON OFFLINE ZTD 

CON OFFLINE ZTE 

CON OFFLINE ZTF 

CON OFFLINE ZTH 

CON OFFLINE ZTJ 

CON OFFLINE ZTO: 

CON OFFLINE ZT1: 

CON OFFLINE ZT2: 

CON OFFLINE Z2T3: 

CON OFFLINE ZT4; 

CON OFFLINE ZT5: 

CON OFFLINE ZT6: 

CON OFFLINE ZT73 

-10$: 

-IFLOA ZE: UNL ZE: 

~IFLOA ZT: UNL ZT: 

LOA ZE: /PAR=GEN/HIGH/SIZE=20000 
-IF <SYSTEM> <> 6 LOA ZT: 
-IF <SYSTEM> <> 6 UNL ZT: 
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-DATA 3 You can ignore the error message: "Loadable driver larger than 4KW" 

-DATA LOA ZT: /HIGH/SIZE=20000 

~DATA .IF <SYSTEM> <> 6 .GOTO 20$ 

DATA 3 configure the devices online 

~DATA CON ONLINE ZEA 

DATA CON ONLINE ZE0: 

DATA CON SET ZTA VEC=0 

.DATA CON SET ZTB VEC=0 

-DATA CON SET ZTC VEC=0 

-DATA CON SET ZTD VEC=0 

-DATA CON SET ZTE VEC=0 

«DATA CON SET ZTF VEC=0 

~DATA CON SET ZTH VEC=0 

-DATA CON SET ZTJ VEC=0 

DATA CON ONLINE ALL 

~DATA .208: 

-DATA INS $RTHACP/PRI=150. 

DATA .XQT RTH 

«DATA INS 'DESTUI'ARP.TSK 

-DATA INS 'DESTUI'BSTAT.TSK 

-DATA INS 'DESTUI'FTPC.TSK 

»DATA INS 'DESTUI'FTPDEMON. TSK 

-DATA INS 'DESTUI'NETLOAD.TSK 

DATA INS 'DESTUI'TELNET.TSK 

-DATA INS 'DESTUI'TTCP.TSK 

DATA INS 'DESTUI'XROUTE.TSK 

~DATA INS 'DESTUI'NETSTAT.TSK 

DATA INS 'DESTUI'LOGIN.TSK 

.SETN LCOUNT 0 

-DATA .SETS FTDOPT '" 

»DATA .IF <SYSTEM> = 6 .SETS FTDOPT '/XHR=NO" 
908: 

-IF LCOUNT >= '$SESS' .GOTO 99$ 

DATA INS 'DESTUI'FTPD.TSK/TASK=FTDOO'LCOUNT'''FTDOPT'' 

-DATA INS $PIP/TASK=XDROO'LCOUNT' 

-INC LCOUNT 

-GOTO 90$ 
9983 

»DATA .ASK DWN Do you want to initialize the EXOS front end processor 

-DATA .IFT DWN net 

~DATA .ASK DMN Do you want to start the FIP server 

DATA .IFT DMN .XQT dem 

»DATA .IFT DMN .XQT lgn 

. CLOSE 

PIP LB:[1,1]EXOSLOAD.CMD/PR/FO 


Please add the following line to LB:[1,2]STARTUP.CMD so that the 
network is reloaded everytime the system is rebooted. 


@LB:([1,1]JEXOSLOAD 


You may need to edit the file LB:[1,1]EXOSLOAD.CMD to set up the 
options in loading the network module. 


* we we we we we we we we Ot 


we we 
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“s dismount device 

25 

DMO 'SDEV' 

Installation completed. Now you can execute 


@LB:[1,1]EXOSLOAD 
to start up the network connection. 


we we we we 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 
SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 


» we we we we 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


e e s s e 
we we we we we we 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 


EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 
wENABLE QUIET 
~ENABLE LOWERCASE 
» ENABLE GLOBAL 
~ENABLE SUBSTITUTION 
~LFT <PRIVIL> .GOTO 5 
~DISABLE QUIET 
; Error: You must be privileged in order to install EXOS 8030 software. 
EXIT 
253 
.IF <UIc> = "[1,100]" .cGOTO 7 
DISABLE QUIET . 
3; Error: EXOS 8030 must be installed from UIC [1,100] 


s 
we we we we we we we we we 


EXIT 
73 
»DISABLE DISPLAY 
-ASK $VRBS Verbose? [Y/N] 
~IFT S$VRBS .DISABLE QUIET 
-ASK $NOPRE Delete previous version of EXOS software? [Y/N] 
.ASK $DEL Delete source file from current UFD in target disk? [Y/N] 
-ASK $DRV Build driver and ACP only? [Y/N] 
~SETS $VEC ''400" 
-ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 
-SETS $PORT ''4000" 
.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 
~SETN SSESS 1 
-ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D: 1] 
9 
. build the driver 
om) 
@BLDDRV 
-IFT $DEL PIP BLDDRV.CMD3;/DE 
9 
3 build the pseudo-terminal driver 
@BLDZT 


IFT $DEL PIP BLDZT.CMD;/DE 


? 
°5 build the ACP 
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°9 

@BLDACP 

-IFT $DEL .AND .IFT $DRV PIP PROLOGUE.OLB;/DE 
~IFT $DEL PIP RTH.OLB3;/DE 

IFT $DEL PIP BLDACP.CMD3;/DE 


ewe we 


Now copy utilities to various destination location 
°9 

~IFT $DRV .EXIT 

-20: 

eASKS DESTUI Please enter the UFD for the EXOS utilities 
~IF DESTUI = "" .GOTO 20 


3 Copy task image 


-IFF $SNOPRE .GOTO 25 

PIP 'DESTUI'ARP.TSK3*/DE 

PIP 'DESTUI'BSTAT.TSK3*/DE 

PIP 'DESTUI 'NETLOAD.TSK;*/DE 

PIP 'DESTUI'NETSTAT.TSK3*/DE 

PIP 'DESTUI'TTCP.TSK3*/DE 

PIP 'DESTUI'XROUTE.TSK3*/DE 

PIP 'DESTUI'FTPC.TSK3*/DE 

PIP 'DESTUIL'FTPDEMON.TSK3*/DE 

PIP 'DESTUI'TELNET.TSK3*/DE 

PIP 'DESTUI'LOGIN.TSK3*/DE 

PIP 'DESTUI'FTPD.TSK3*/DE 

2253 

@BLDLGN 

IFT $DEL PIP LOGIN.OLB3*/DE 

IFT $DEL PIP BLDLGN.CMD3*/DE 

PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'LOGIN.TSK/NM 
@BLDDEM 

IFT $DEL PIP DEMON.OLB3*/DE 

-3eIFT $DEL PIP RECVAST.MAC3*/DE 

IFT $DEL PIP BLDDEM.CMD3*/DE 

IFT $DEL PIP PROLOGUE.OLB3;*/DE 

PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPDEMON. TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'ARP.TSK/NM 
PIP 'DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'BSTAT.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'NETLOAD.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'NETSTAT.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'TTCP.TSK/NM 
PIP 'DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'XROUTE.TSK/NM 
PIP 'DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPC.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'TELNET.TSK/NM 
PIP 'DESTUIL'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPD.TSK/NM 


; 
5 copy specific programs 


IFT $NOPRE PIP 'DESTUI'RHOST.C3*/DE 
IFT $NOPRE PIP 'DESTUI'RADDR.C3*/DE 
IFT $NOPRE PIP 'DESTUI'SOCKET.C3*/DE 
.IFT $NOPRE PIP 'DESTUI'TTCP.C3*/DE 
.IFT $NOPRE PIP 'DESTUI'TTCP.H3*/DE 
IFT $NOPRE PIP LB:[{1,2]NET.3*/DE 


Oct 17 16:18 1985 tapeins.cmd Page 3 


-IFT $NOPRE PIP 'DESTUI'8030.HLP3*/DE 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'RHOST.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'RADDR.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'SOCKET.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'TTCP.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'TTCP.H/NM 

PIP LB:[1,2]/RE/FO/NV/CD=SY: '<UIC>'NET./NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'8030.HLP/NM 

-ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 
-IFF INITHO .GOTO SETLD 

-IFT $NOPRE PIP LB:[1,1]HOSTS.NET;*/DE 

PIP LB:[1,1]/RE/FO/NV/CD=SY: '<UIC>'HOSTS.NET/NM 
-OPENA LB:[1,1]HOSTS.NET 

-ASKS HNAME Name of host 

-ASKS HADDR Host internet address 

-DATA 'HADDR' 'HNAME' localhost 

. CLOSE 

IFT $NOPRE PIP LB:[1,1]HOSTLOCAL.NET3*/DE 

PIP LB:[1,1]/RE/FO/NV/CD=SY: '<UIC>'HOSTLOCAL.NET/NM 


Write out the EXOSLOAD command file 


e we we 


“9 
.SETLD: 
IFT $NOPRE PIP LB:[1,1]JEXOSLOAD.CMD3;*/DE 
-OPEN LB:[1,1]EXOSLOAD.CMD 
-DATA .ENABLE SUBSTITUTION 
DATA .IFACT DEMTO ABO DEMTO 
~DATA .IFACT LGNTO ABO LGNTO 
-DATA .IFACT ...DEM ABO ...DEM 
-DATA .IFACT ...LGN ABO ...LGN 
-SETN LCOUNT 0 
-80$: 
-IF LCOUNT >= 'SSESS' .GOTO 89$ 
-DATA .IFACT FTDOO'LCOUNT' ABO FTDOO'LCOUNT' 
-DATA .IFINS FTDOO'LCOUNT' REM FTDOO'LCOUNT' 
~DATA .IFINS XDROO'LCOUNT' REM XDROO'LCOUNT' 
~INC LCOUNT 
-GOTO 80$ 
8983 
-DATA .IFINS ...DEM REM ...DEM 
-DATA .IFINS ...ARP REM ...ARP 
-DATA .IFINS ...BST REM ...BST 
-DATA .IFINS ...FTP REM ...FTP 
-DATA .IFINS ...NET REM ...NET 
-DATA .IFINS ...TEL REM ...TEL 
-DATA .IFINS ...TTC REM ...TTC 
-DATA .IFINS ...ROU REM ...ROU 
DATA .IFINS ...NST REM ...NST 
DATA .IFINS ...LGN REM ...LGN 
-DATA .IFACT ...RTH ABO ...RTH 
DATA .IFACT RTHTO ABO RTHTO 
-DATA .IFINS ...RTH REM ...RTH 
-DATA .IF <SYSTEM> <> 6 .GOTO 10$ 
-DATA .IFLOA ZE: CON OFFLINE ZEA 
-DATA .IFLOA ZE: CON OFFLINE ZEO: 
-DATA .IFNLOA ZT: .GOTO 10$ 
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~DATA CON OFFLINE ZTA 

~DATA CON OFFLINE ZTB 

~DATA CON OFFLINE ZTC 

»DATA CON OFFLINE ZTD 

-DATA CON OFFLINE ZTE 

-DATA CON OFFLINE ZTF 

-DATA CON OFFLINE ZTH 

-DATA CON OFFLINE ZTJ 

-DATA CON OFFLINE ZTO: 

-DATA CON OFFLINE ZT1: 

~DATA CON OFFLINE ZT2: 

~DATA CON OFFLINE 2T3: 

-DATA CON OFFLINE ZT4: 

-DATA CON OFFLINE ZT5: 

-DATA CON OFFLINE ZT6: 

-DATA CON OFFLINE ZT7: 

~DATA .10$: 

-DATA .IFLOA ZE: UNL ZE: 

-DATA .IFLOA ZT: UNL ZT: 

-DATA LOA ZE:/PAR=GEN/HIGH/SIZE=20000 

-DATA .IF <SYSTEM> <> 6 LOA ZT: 

~DATA .IF <SYSTEM> <> 6 UNL ZT: 

-DATA 3; You can ignore the error message: "Loadable driver larger than 4KW" 

-DATA LOA ZT:/HIGH/SIZE=20000 

-DATA .IF <SYSTEM> <> 6 .GOTO 205 

DATA 3 configure the devices online 

-DATA CON ONLINE ZEA 

-DATA CON ONLINE ZEO0: 

-DATA CON SET ZTA VEC=0 

-DATA CON SET ZTB VEC=0 

-DATA CON SET ZTC VEC=0 

-DATA CON SET ZTD VEC=0 

~DATA CON SET ZTE VEC=0 

-DATA CON SET ZTF VEC=0 

-DATA CON SET ZTH VEC=0 

-DATA CON SET ZTJ VEC=0 

-DATA CON ONLINE ALL 

-DATA .208: 

~DATA INS $RTHACP/PRI=150. 

»~DATA .XQT RTH 

-DATA INS 'DESTUI'ARP.TSK 

-DATA INS 'DESTUI'BSTAT.TSK 

-DATA INS 'DESTUI'FTPC.TSK 

-DATA INS 'DESTUI'FTPDEMON.TSK 

~DATA INS 'DESTUI'NETLOAD.TSK 

-DATA INS 'DESTUI'TELNET.TSK 

-DATA INS 'DESTUI'TTCP.TSK 

»DATA INS 'DESTUI'XROUTE.TSK 

-DATA INS 'DESTUI'NETSTAT.TSK 

-DATA INS 'DESTUI'LOGIN.TSK 

~SETN LCOUNT 0 

~DATA .SETS FTDOPT '" 

-DATA .IF <SYSTEM> = 6 .SETS FIDOPT ''/XHR=NO" 
-90$: 

eIF LCOUNT >= '$SESS' .GOTO 99$ 

-DATA INS 'DESTUI'FTPD.TSK/TASK=FTDOO'LCOUNT'''FTDOPT' ' 
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-DATA INS $PIP/TASK=XDROO'LCOUNT' 
INC LCOUNT 
-GOTO 90$ 
-99$3 
-DATA .ASK DWN Do you want to initialize the EXOS front end processor 
~DATA .IFT DWN net 
-DATA .ASK DMN Do you want to start the FIP server 
-DATA .IFT DMN .XQT dem 
.DATA .IFT DMN .XQT len 
» CLOSE 
PIP LB:[1,1]EXOSLOAD.CMD/PR/FO 


Please add the following line to LB:[1,2]STARTUP.CMD so that the 
network is reloaded everytime the system is rebooted. 


@LB:{1,1JEXOSLOAD 


You may need to edit the file LB:[1,1]JEXOSLOAD.CMD to set up the 
options in loading the network module. 


Installation completed. Now you can execute 
@LB:[1,1]EXOSLOAD 
to start up the network connection. 


we We we we we we we we we we we we we 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 
SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 


e we we we we 


s 
we WS WO we SO OS OR HE OS HO CS UO Ae Pe CO 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 


EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 
«ENABLE QUIET 
~ENABLE LOWERCASE 
»ENABLE GLOBAL 
»ENABLE SUBSTITUTION 
~LFT <PRIVIL> .GOTO 5 
~-DISABLE QUIET 
; Error: You must be privileged in order to install EXOS 8030 software. 
e EXIT 
238 
~IF <uIc> = "(1,100)" .coTo 7 
«DISABLE QUIET 
; Error: EXOS 8030 must be installed from UIC [1,100] 


~EXIT 
ans 
-DISABLE DISPLAY 
-ASK $VRBS Verbose? [Y/N] 
»IFT $VRBS .DISABLE QUIET 
-ASK $NOPRE Delete previous version of EXOS software? [Y/N] 
-ASK $DEL Delete source file from current UFD in target disk? [Y/N] 
ASK $DRV Build driver and ACP only? [Y/N] 
SETS $VEC "400" 
-ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 
~SETS $PORT ''4000" 
-ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 
-SETN $SESS 1 
-ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D : 1] 
9 
as build the driver 
*9 
@BLDDRV 
.IFT $DEL PIP BLDDRV.CMD3/DE 
e9 
3 build the pseudo-terminal driver 
@BLDZT 


IFT $DEL PIP BLDZT.CMD;/DE 


9 
“3 build the ACP 
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9 

@BLDACP 

-IFT $DEL .AND .IFT $DRV PIP PROLOGUE.OLB3;/DE 

IFT $DEL PIP RTH.OLB3;/DE 

-IFT $DEL PIP BLDACP.CMD;/DE 

«9 

<3 Now copy utilities to various destination location 
9 

IFT §DRV .EXIT 

20: 

eASKS DESTUI Please enter the UFD for the EXOS utilities 
-IF DESTUI = ""' .GOTO 20 

°9 

33 Copy task image 

“9 

~IFF $NOPRE .GOTO 25 

PIP 'DESTUI'ARP.TSK3*/DE 

PIP 'DESTUI'BSTAT.TSK3*/DE 

PIP 'DESTUI'NETLOAD.TSK3*/DE 

PIP 'DESTUI'NETSTAT.TSK3*/DE 

PIP 'DESTUI'TTCP.TSK3*/DE 

PIP 'DESTUI'XROUTE.TSK3*/DE 

PIP 'DESTUI'FTPC.TSK3*/DE 

PIP 'DESTUL'FTPDEMON.TSK3*/DE 

PIP 'DESTUI'TELNET.TSK3*/DE 

PIP 'DESTUI'LOGIN.TSK3*/DE 

PIP 'DESTUL'FTPD.TSK3*/DE 

«253 

@BLDLGN ~ 

IFT $DEL PIP LOGIN.OLB3*/DE 

-IFT $DEL PIP BLDLGN.CMD;*/DE 

PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'LOGIN.TSK/NM 
@BLDDEM 

IFT $DEL PIP DEMON.OLB3*/DE 

.3eI1FT $DEL PIP RECVAST.MAC3*/DE 

IFT $DEL PIP BLDDEM.CMD3*/DE 

IFT §DEL PIP PROLOGUE.OLB3*/DE 

PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPDEMON.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'ARP.TSK/NM 

PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'BSTAT.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'NETLOAD. TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'NETSTAT.TSK/NM 
PIP 'DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'TICP.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'XROUTE.TSK/NM 
PIP 'DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPC.TSK/NM 
PIP 'DESTUI'/RE/FO/CO/NV/CD=SY: '<UIC>'TELNET.TSK/NM 
PIP ‘DESTUL'/RE/FO/CO/NV/CD=SY: '<UIC>'FTPD.TSK/NM 


e we we 


copy specific programs 

“9 

.IFT $NOPRE PIP 'DESTUI'RHOST.C3*/DE 
.IFT $NOPRE PIP 'DESTUI'RADDR.C3*/DE 
~IFT $NOPRE PIP 'DESTUI'SOCKET.C3*/DE 
-IFT $NOPRE PIP 'DESTUIL'TTCP.C;*/DE 
.IFT $NOPRE PIP 'DESTUI'TTCP.H3*/DE 
.IFT $NOPRE PIP LB:[1,2]NET.3*/DE 
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-IFT $NOPRE PIP 'DESTUI'8030.HLP3*/DE 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'RHOST.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'RADDR.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'SOCKET.C/NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'TTCP.C/NM 

PIP 'DESTUL'/RE/FO/NV/CD=SY: '<UIC>'TTCP.H/NM 

PIP LB:{1,2]/RE/FO/NV/CD=SY: '<UIC>'NET./NM 

PIP 'DESTUI'/RE/FO/NV/CD=SY: '<UIC>'8030.HLP/NM | 
-ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 
-IFF INITHO .GOTO SETLD 

-IFT $NOPRE PIP LB:[1,1]HOSTS.NET;*/DE 

PIP LB:[1,1]/RE/FO/NV/CD=SY: '<UIC>'HOSTS.NET/NM 
-OPENA LB:(1,1]HOSTS.NET 

-ASKS HNAME Name of host 

eASKS HADDR Host internet address 

-DATA 'HADDR' 'HNAME' localhost 

.CLOSE 

-IFT $NOPRE PIP LB:[1,1]HOSTLOCAL.NET3*/DE 

PIP LB:[1,1]/RE/FO/NV/CD=SY: '<UIC>'HOSTLOCAL.NET/NM 


Write out the EXOSLOAD command file 


e 
ews ww 


9 
»SETLD: 
.IFT $NOPRE PIP LB:[1,1]EXOSLOAD.CMD3;*/DE 
-OPEN LB:[1,1]EXOSLOAD.CMD 
-DATA «ENABLE SUBSTITUTION 
.DATA .IFACT DEMTO ABO DEMTO 
.-DATA .IFACT LGNTO ABO LGNTO 
~-DATA .IFACT ...DEM ABO ...DEM 
DATA .IFACT ...LGN ABO ...LGN 
-SETN LCOUNT 0 
-80$: 
-IF LCOUNT >= '$SESS' .GOTO 89$ 
~DATA .IFACT FTDOO'LCOUNT' ABO FTDOO'LCOUNT' 
«DATA .IFINS FTDOO'LCOUNT' REM FTDOO'LCOUNT' 
.DATA .IFINS XDROO'LCOUNT' REM XDROO'LCOUNT' 
.INC LCOUNT 
-GOTO 80$ 
89S: 
.-DATA .IFINS ...DEM REM ...DEM 
.DATA .IFINS ...ARP REM ...ARP 
.DATA .IFINS ...BST REM ...BST 
.-DATA .IFINS ...FTP REM ...FTP 
.-DATA .IFINS ...NET REM ...NET 
DATA .IFINS ...TEL REM ...TEL 
.DATA .IFINS ...TTC REM ...TTC 
-DATA .IFINS ...ROU REM ...ROU 
DATA .IFINS ...NST REM ...NST 
»DATA .IFINS ...LGN REM ...LGN 
~DATA .IFACT ...RTH ABO ...RTH 
.DATA .IFACT RTHTO ABO RTHTO 
-DATA .IFINS ...RTH REM ...RTH 
»DATA .IF <SYSTEM> <> 6 .GOTO 10$ 
.DATA .IFLOA ZE: CON OFFLINE ZEA 
.DATA .IFLOA ZE: CON OFFLINE ZEO: 
.DATA .IFNLOA ZT: .GOTO 10$ 
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-DATA CON OFFLINE ZTA 

«DATA CON OFFLINE ZTB 

»DATA CON OFFLINE ZTC 

-DATA CON OFFLINE ZTD 

-DATA CON OFFLINE ZTE 

~DATA CON OFFLINE ZTF 

-DATA CON OFFLINE ZTH 

-DATA CON OFFLINE ZTJ 

DATA CON OFFLINE ZTO: 

~DATA CON OFFLINE ZT1L: 

»~DATA CON OFFLINE ZT2: 

»-DATA CON OFFLINE ZT3: 

-DATA CON OFFLINE ZT4: 

-DATA CON OFFLINE ZT5: 

~DATA CON OFFLINE ZT6: 

»~DATA CON OFFLINE ZT7: 

DATA .108: 

-DATA .IFLOA ZE: UNL ZE: 

-DATA .IFLOA ZT: UNL ZT: 

-DATA LOA ZE: /PAR=GEN/HIGH/SIZE=20000 

eDATA .IF <SYSTEM> <> 6 LOA ZT: 

-DATA .IF <SYSTEM> <> 6 UNL ZT: 

-DATA 3 You can ignore the error message: "Loadable driver larger than 4KW" 

»DATA LOA ZT: /HIGH/SIZE=20000 

DATA .IF <SYSTEM> <> 6 .GOTO 20$ 

DATA ; configure the devices online 

-DATA CON ONLINE ZEA 

-DATA CON ONLINE ZEO: 

-DATA CON SET ZTA VEC=0 

DATA CON SET ZTB VEC=0 

-DATA CON SET ZTC VEC=0 

-DATA CON SET ZTD VEC=0 

-DATA CON SET ZTE VEC=0 

-DATA CON SET ZTF VEC=0 

~-DATA CON SET ZTH VEC=0 

~DATA CON SET ZTJ VEC=0 

-DATA CON ONLINE ALL 

DATA .208: 

»-DATA INS $RTHACP/PRI=150. 

~DATA .XQT RTH 

-DATA INS 'DESTUI'ARP.TSK 

-DATA INS 'DESTUI'BSTAT.TSK 

-DATA INS 'DESTUI'FTPC.TSK 

-DATA INS 'DESTUIL'FTPDEMON.TSK 

~DATA INS 'DESTUI'NETLOAD.TSK 

~DATA INS 'DESTUI'TELNET.TSK 

-DATA INS 'DESTUI'TTCP.TSK 

-DATA INS 'DESTUI'XROUTE.TSK 

-DATA INS 'DESTUI'NETSTAT.TSK 

~DATA INS 'DESTUI'LOGIN.TSK 

-SETN LCOUNT 0 

-DATA .SETS FTDOPT '" 

-DATA .IF <SYSTEM> = 6 .SETS FTDOPT "/XHR=NO" 
908: 

-IF LCOUNT >= 'S$SESS' .GOTO 99$ 

-DATA INS 'DESTUI'FTPD.TSK/TASK=FTDOO'LCOUNT'''FTDOPT'' 
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.DATA INS $PIP/TASK=XDROO'LCOUNT' 
«INC LCOUNT 
~GOTO 90$ 
-99$3 
-DATA .ASK DWN Do you want to initialize the EXOS front end processor 
~DATA .IFT DWN net 
~DATA .ASK DMN Do you want to start the FTP server 
-DATA .IFT DMN .XQT dem 
-DATA .IFT DMN .XQT lgn 
«CLOSE 
PIP LB:[1,1]EXOSLOAD.CMD/PR/FO 


Please add the following line to LB:[1,2]STARTUP.CMD so that the 
network is reloaded everytime the system is rebooted. 


@LB:[1,1 JEXOSLOAD 
You may need to edit the file LB:[1,1]EXOSLOAD.CMD to set up the 


options in loading the network module. 


Installation completed. Now you can execute 
@LB:[1,1]JEXOSLOAD 
to start up the network connection. 


we We SO WS WE VO WO VO UE HS WS SS WE 
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/ * 

* filename: FTPDEMON.H 

*/ 

#include <rsxos.h> 
#define EXEFN 010001 
#tdefine MAXCONN 4 
#define ACC EFN 50 
#define SLEEP EFN 51 
#define TASKNAMLEN 6 
#define FOREVER for(33 


#define SDRA 01153 


struct task block { 


struct 


int esbl8]3 
} tskbLkLMAXCONN] = {0}; 


/* GLOBAL variables */ 


struct 
struct 


task block *rdy2run 
task block “accept on = 


task block *link}3 
char task name[{ TASKNAMLEN]3 


tskblk; /* 


ate 
a 


max. no of connections */ 
common event flag no. 50 */ 


* common event flag no. 51 */ 


Length of task name */ 


link to next task block */ 
task name */ 
exit status block */ 


ptr to rdy 2 run task */ 
pointer to task in accept */ 


char cmdlinL] = "INS LB:[1,2]FTPD/TASK=FTDOO "'; 


char line[] = "REM FTDOO "; 
long cli = 03 

int cmdlen = 
int len = 03 
int flgbuf[4] = {0}; 

/* int connect = 13 

char *“ftpcemd = (char *) 03 
int ftplen = 03 

int tcblist[MAXCONN] = {0}; 


/* CLI name in RADSO */ 


/* event flag buffer */ 
total no of connections */ 


/* pointer to task control block */ 
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1 /* 

2 * filename: FTPDEMON.C 

3 %/ 

4 

5 |* 

6 * This file contains the code for the master ftp task which monitors the 
7 ™* generation of different ftp daemons for different connections. 

g  x/ 

9 


10 #include "ftpdemon.h" 
11 extern int ast()3 

12 extern long radix(); 
13° int connect = 13 

14 extern int ast recv()3 
15 _main() 7 

16 { 


18 priv_user(); /* check user is priv & 

19 task is not active */ 

20 gmcr(); 

21 emt (SDRA,ast_recv); /* specify receive data ast */ 


23 initialize()3 


25 FOREVER { 

ee if(!read_efn(flgbuf)) { /* is efn 50 clear? % / 

27 if(rdy2run) { /* any rdy2run task present */ 
ee emt (SETF,ACC EFN);/* set common efn 50 to 

ee indicate accept is on */ 
30 ins spawn(); /* install and spawn one */ 
oe update()3 /* update rdy2run pointer * / 


33 | } 


35 emt (ENAR) $ /* enable ast recognition */ 

36 emt (STSE,SLEEP EFN); /* sleep */ 

37 emt (CLEF ,SLEEP EFN) 3 /* clear sleep efn */ 

38 emt (DSAR) 3 /* disable ast recognition so that it does */ 
39 /* not interfere with main task's execution */ 
40 $}. /* end of FOREVER */ 


44 %* TNITIALIZE 


46 % Initialize the world of MASTER 


49 initialize() 

50 { 

51 register struct task block *t = tskblk; /* start of task block */ 
52 THE 1515 


54 cli = radix(''MCR...")3 
55 cmdlen = strlen(cmdlin); 
56 len = strlen(line); 
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57 for(i=O;i<connect3itt+) { 

58 teblist[i] = 0; 

59 fFor( j=03 j<53 j++) 

60 t->task namel j] = cmdlin[cmdlen - TASKNAMLEN +3]; 

61 t->task name[j] = '0' + i3 

62 t->Llink = t + 13 

63 tt++3 

64 

65 (--t)->Llink = 03 

66 emt (CLEF,ACC EFN); 

67 emt (CLEF,SLEEP EFN); 

68 emt (DSAR) ; /* disable ast recognition so that ast's do not */ 
69 /* bother the masin task */ 

70 «} 

71 

72. «[* 

73 * UPDATE 

74 * 

75 * Update rdy2run pointer 

760 */ 

77 

78 update() 

79 

80 

81 accept on = rdy2run; 

82 rdy2run = rdy2run->1link; 

83 accept on->link = 05 

84 } 

85 

86 /* 

87 * FROM AST 

88 = * 

Bo om This routine is called from the AST routine when a task 
90 * exits 

91 */ 

92 

93 from _ast(p) 

94 int *p3 /* pointer to esb of exit task */ 

95 { 

96 register struct task block *exit task3 

97 int index; = 7 

98 

99 exit task = (struct task block *)(p-4)3 /* point to start of str. */ 
100 exit task->link = rdy2run; 

101 rdy2run = exit task; /* make the exit task the next available */ 
102 /* rdy2run task */ 

103 line[len - 1] = exit task->task name[TASKNAMLEN -1]3;/* the task no. */ 
104 /*emt (SPWN,cli,0,0,0,0,EXEFN,0,0,line,len,0,CO)3*/ /* rem task */ 
105 /*emt (WISE, 1) 3*/ /* wait for task to get removed */ 
106 index = exit_task - tskblk; 

107 if(tcblist[index]) 

108 mkpriv(tcblist[index]); /* make sure task becomes priv. */ 
109 if(accept on == exit task) 

110 emt(CLEF,ACC EFN); /* then task has exit before accept */ 

lil emt (SETF,SLEEP EFN); /* unstop the master task */ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14] 
142 
143 
144 
145 
146 
147 
148 
149 


* INS SPAWN 


ate / 
ray 


Install and spawn the next rdy2run task 


ins spawn() 


} 


char msgl26]3 
long t_name = radix(rdy2run->task_ name); 
int st3 


emdlinlcmdlen - 1] = rdy2run->task name[TASKNAMLEN -1]; 
/* now install the task */ 


/*st = emt (SPWN,cli,0,0,0,0,EXEFN,0,0,cmdlin,cmdlen,0,CO)3*/ 
/*emt (WISE, 1)3*/ /* wait for task to get installed */ 
/* now spawn the task */ 
st = emt(SPWN,t name,0,0,0,0,010000,ast,rdy2run->esb,ftpcemd,ftplen,0,0)3 
if(st == IE ACT) | 
; /* yet to decide what to do if task is active */ 
/* such a condition should never arise but if it does*/ 
/* then what? */ 


/* return the size of string */ 


strlen( 
char *s3 


s ) 


while( *p != '\O' ) p++; 


return( 


p-s)3 
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1 3 
2 $3 FILENAME: DEMON .MAC 
3 3 
4 $3 This file includes AST service routine for demon. It also has 
5 5 a routine to read EFN 50. 
6 3 
7 »psect c$text,i,ro 
8 
9 .MCALL RDAFSS 
10 READ.EFN:: 
11 jsr R5,c$sav 
12 MOV 4(R5),R0 $; pointer to a 4 word buffer 
13 RDAFSS_ RO ; read all event flags 
14 BIT #2,6(RO) $ check if event no. 50 is set or clear 
15 BNE 10$ 3 if NE then it is set 
16 - CLR RO 3; clear return value also 
17 —10$: 
18 jmp c$ret ; if efn is set then return value is > 0 
19 
20) 3 
21 3 GMCR 
22° 3 
23 »psect c$data,d,rw 
24 .mcall DIR$,GMCR$ 
25 GMCRD: 
26 GMCR$ 
27 epsect c$text,i,ro 
28 GMCR:: 
29 JSR R5,CSSAV 3 save registers 
30 DIRS #GMCRD ; get MCR command line 
sk 3 CMP #IE.AST,SDSW 3; check return status 
32 3 BEQ NMCR ; if EQ No MCR Command 
33 MOV ##GMCRD+G .MCRB , FTPCMD 3; get mcr buffer address 
34 MOV SDSW,FTPLEN ; buffer size 
35 NMCR3: 
36 
37 JMP CSRET $ unsave register's and return 
38 
39 ~psect c$data,d,rw 
40 tsk: 
41 
42 .IF DF RSSMPL 
43 
44 _  .rad50 /DEMTO/ 
45 
46 .IFF sRSSMPL 
47 
48 -rad50 /...DEM/ 
49 
50 -ENDC  3RS$$MPL 
51 
52 rtncode: 
53 eword 0 
54 ERI: -ASCIZ /**FATAL**---- USER MUST BE PRIVILEGED/ 
55 . EVEN 


56 ER2: 
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-ASCIZ 
- EVEN 


/**PATAL**---- TASK ALREADY ACTIVE/ 


.MCALL TCBDF$ ,UCBDF$,QIOWSS, EXIT$S, DCBDF$ 


DCBDF$ 
TCBDF$ 
UCBDF$ 


-psect c$text,i,ro 
-ENABL LSB 


priv.user:?: 
JSR 
CALL 
MOV 
MOV 
BIT 
BEQ 
CMP 
BNE 
CMP 
BNE 
MOV 

108: 
MOV 
BEQ 
CMP 
BNE 
MOV 


BR 


MOV 
BR 


MOV 


RETURN 


MOV 
BEQ 


SUCC: 
JMP 
ERMSG3: 


QIOWSS 
EXITSS 


R5,CSSAV 
S$SWSTK, RET 
STKTCB,RO 
T.UCB(RO),R1 


#U2.PRV,U.CW2(R1 


ERR1 


tsk, T.NAM(RO) 


ERR2 


tsk+2,T.NAM+2(RO 


ERR2 
#SDEVHD,R1 


(R1),R1 
20$ 


#"'CO,D.NAM(R1) 


10$ 


D.UCB(R1),T.UCB( 


RTN 


#-1,RTNCODE 
RTN 


#-2 , RTNCODE 


RTNCODE, RO 
SUCC 
#-1,RO0 

El 

E2 

#ER1,R1 
ERMSG 
#ER2,R1 
ERMSG 


CSRET 


switch to system state 

get current TCB address 

get TI: UCB address 

; check user is priv. 

If EQ user is not priv. 

compare first word of task name 
If NE task already active. 

$ compare second word of task name 
if NE task already active 

get gevice header 


we we NH we we we Ny we we we 


we we we we we we we ewe He 


$3 get next DCB address 

3; if EQ none 

$$ is it console 

33 if NE no 

RO) 33 get CO UCB address 


33 user must be priv. 


33 task already active 
$3 return to task state 
$3 return value 


check error code 


3; address of error message 


3 address of error message 


#IO.WVB,#5,#1,,,,<R1,#38.,#40> 


«psect c$text,1,ro 
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113 

114 mkprivs:: 

115 JSR R5,CSSAV 

116 MOV 4(R5),RO $ get tcb address 

117 CALL SSWSTK,RET1 $ switch to system state 
118 BIS #T3.PRV,T.ST3(RO) 33 make server as priv. 
119 RETURN 

120 RET1: 

121 JMP CS$RET 

122 ~DSABL LSB 

123 

124 ~psect c$data,d,rw 

125 -even 

126 epsect c$text,1,ro 

127 

128 .MCALL ASTX$S 

129 AST:: 

130 MOV RO,-(SP) $ save RO 

131 MOV R1,-(SP) ; save Rl 

132 MOV R2,-(SP) 3 save R2 

133 MOV R3,-(SP) ; save R3 

134 MOV R4,-(SP) ; save R4 

135 MOV R5,-(SP) 3 save R5 

136 MOV 14(SP),-(SP) ; lst param is the esb address on the stack 
137 JSR PC,FROM.AST ; call C - routine to do the job 
138 TST (SP)+ ; pop off param passed 
139 MOV (SP)+,R5 3; pop off R5 

140 MOV (SP)+,R4 ; pop off R4 

141 MOV (SP)+,R3 ; pop off R3 

142 MOV (SP)+,R2 ; pop off R2 

143 MOV (SP)+,R1 ; pop off Rl 

144 MOV (SP)+,R0 3; pop off RO 

145 TST (SP)+ ; pop off stack for ast 
146 ASTX$S ; exit from AST routine 
147 


148 - END 
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oon Ain Whe 


We we we 


AST.RE? : 


AGAIN: 


filename: 


etitle 
«MACRO 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


» ENDM 
«MACRO 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


- ENDM 
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RECVAST.MAC 


RECVAST 
SAVE 


RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) 


UNSAVE 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


.MCALL TCBDF$,PCBDF$,HDRDF$ ,RCVD$S, SDAT$S, ASTX$S 


TCBDF$ 
PCBDF$ 
HDRDF$ 


- BLKW 
«WORD 
-RADSO 


-enabl 


SAVE 


RCVD$S 
CMP 
BEQ 
CMP 
BEQ 

BR 


CALL 
MOV 


CMP 
BNE 
CMP 
BEQ 


»#PKT 
#1IS.SUC,SDSW 
10$ 
#IE.ITS,$DSW 
EXT 

ERR 


SSWSTK, RET 
SACTHD, RO 


T.NAM(RO), PKT 
NXT 


3 save all registers 


$ recieve pkt from ftd000 task 
s;check for success 

; If EQ YES 

; check error code 

> no pkt. return 

s error 


3; switch to system state 
3 get active task header pointer 


33 compare first word of task 
33 If NE not match , next tcb 


T.NAM+2(RO),PKT+2 $3 compare second word of task 


SUCC 


33 If EQ found tcb 
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57 NXT: 

58 MOV T.ACTL(RO),RO 33 get next tcb address 

59 CMP RO, #$HEADR 33; Check if it is last tcb 
60 BEQ 30$ 3; If EQ yes 

61 BR 20$ 33 Loop 

62 SUCC: 

63 MOVB = PKT+5,GRP 33 get group 

64 CMP GRP, #10 $3 priv uic? 

65 BLOS 25$ 33 br if yes 

66 BIC _#T3.PRV,T.ST3(RO) 33 make child as non-priv. 
67 MOV PKT+2 ,R2 $3 get second word of task name 
68 SUB BASE, R2 33 calculate index(word) 

69 ASL R2 33 index(byte) 

70 ADD #TCBLIST,R2 $5 

71 MOV RO, (R2) $3 save tcb address 

72 258: 

73 MOV T.PCB(RO),RO 33 get PCB address of task 
74 MOV P.HDR(RO),RO 33; Get header control block 
75 MOV PKT+4,H.CUIC(RO) 33 set current task uic as remote user's 
76 3; Login uic 

77 MOV PKT+4,H.DUIC(RO) 33 set default task uic 

78 

79 «9308: 

80 RETURN $$ switch to task state 

81 RET: 

82 SDATSS #PKT,#PKT+4 3 send dummy pkt to child task 
83 BR AGAIN 3 go for next pkt. 

84 ERR: 

85 EXT: 

86 UNSAVE 

87 $ unsave all registered 

88 ASTX$S 3 exit from AST routine 

89 


90 - END 
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1 #include <rsxos.h> 
2 #define EFN 1 
3 extern valacnt()3 
4 extern char *“entry}3 
5 char *msg = " ws 
6 main() 
7 
8 register int gts 
9 char *D5 
10 for(3;) { 
11 /* 
12 if (emt (RCVX,(long) 0,msg) < 0) 
13 emt (EXST,-2)3 
14 */ 
15 if(emt(RCST,(Long) O0,msg) == IS SET) 
16 continue} 
17 for(i=43msg[i] != '*'si+t); 
18 it++s 
19 r = valacnt(msg+4,msgti)3 
20 *((Cint *)(msg + 4)) = r3 
ya if( r == 0){ 
22 p = msgt6$3 
23 “p++ = ea 
24 for(i=03i<33i++) 
25 *pt+ = *(entry + A GRP + i )$ 
26 epre S's 7 
27 for(i=031<33it++) 
28 “p++ = *(entry + A MBR + i )3 
29 p++ = ? ne 
30 “ptt = '\O'S 
31 /* now £111 in the login default device name starting at 16th */ 
32 for(i=03i<43;it+) 
33 *p++ = *(entry + A SYDV + 1)5 
34 *pt+ = '\O'S 
35 
36 emt (SDAT,*(long*)msg,msg+4,0)3 
37 
38} 
39 


40 extern int namflg3 
41 extern char *puic;3 


42 

43 accnt(ac) 

44 char *ac3 

45 f{ 

46 int hasbracket = 03 

47 int charcount$3 

48 int leadzero}3 /* count of leading zeroes needed */ 
49 char *chptr} 

50 char *delimiter3 /* delimiter x / 

51 

52 while (*ac == ' ') 

53 act+$ /* skip blank  */ 
54 if ((*ac >= 'A') && (*ac <= 'Z')) { 

55 namflg = 135 


56 return(1)3 
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57 } else if (*ac == '[') f{ 

58 hasbracket = 13 

59 actts 

60 } else if ((*ac < '0') && (*ac > '7')) { 

61 return(2)3 

62 S35 

63 

64 /* now must start with a numeric number */ 

65 

66 chptr = ac} 

67 charcount = 03 

68 while ((*chptr != ' ') && (*chptr != ',')) { 

69 if (++charcount > 3) 

70 return(2)3 /* group number too long */ 
71 chptrtt3 

72 3 

73 

74 delimiter = chptr3 

75 

76 for (leadzero = 3 - charcount3 leadzero > 03 leadzero--) 
77 *puict+ = '0'S 

78 for (chptr = ac3 charcount > 03 charcount--) { 

79 if ((*chptr < '0') || (*chptr > '7')) 

80 return(2)3 /* syntax error */ 

81 *puict+ = *chptr++3 

82 35 

83 

84 while (*chptr == ' ') 

85 chptr++$ /* skip blank */ 

86 if (*chptr == ',') { 

87 chptr++; 

88 } else 

89 return(2)3 

90 while (*“chptr == ' ') 

91 chptrt++3 /* skip blank */ 

92 

93 /* now handle the member part */ 

94 delimiter = chptr3 

95 charcount = 03 

96 while ((*chptr != ' ') && (*chptr != ']') && (*chptr != '*')) { 
97 if (++charcount > 3) 

98 return(2)3 /* member number too long */ 
99 chptrtt3 

100 iz 

101 

102 if ((*chptr == ']') && (!hasbracket)) 

103 return(2)3 

104 

105 for (leadzero = 3 - charcount; leadzero > 03 leadzero--) 
106 *puict+ = '0'5 

107 for (chptr = delimiter$} charcount > 03 charcount--) { 
108 if ((*chptr < 'O') || (*chptr > '7')) 

109 return(2)3 /* syntax error */ 
110 *puict+ = *chptrt+t3 

ue Fak ie 


112 if (hasbracket) { 
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113 
114 
115 
116 
117 
118 
119 
120 


} 


login.c Page 3 


while (*chptr != ']') { 


return(0)3 


if (*chptr == '*') 
return(2)3 
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i, we -TITLE ACTFIL - ACCOUNT FILE CONTROL BLOCKS 
2 .NLIST 
3 ~IDENT /4.0/ 
4 3 
5 3 COPYRIGHT (C) 1981 BY 
6 3 DIGITAL EQUIPMENT CORPORATION, MAYNARD 
1: 3 MASSACHUSETTS. ALL RIGHTS RESERVED. 
8 $5 
9 3 THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
10 3 AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
11 3 AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
12  $ SOFTWARE OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
13. 3 OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND 
14 3 OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. 
15,, °3 
16 3 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
17 $3 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
18 3 EQUIPMENT CORPORATION. 
19 3; 
20 3 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
21 3 ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
22. 3 
23 3 
Df et rrr rrr 
29° 
26 3 COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION. 
27 3 ALL RIGHTS RESERVED. 
28 3 
29 3 THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
30 $3 OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 
31 3 
32 3 
33 3 VERSION 04 
34 5 BY: H. LEV 
35 3 DATE: 7/15/75 
36 3 
37 3 MODIFIED: 
38 
39 3 EBO51 21-MAY-77 LOOK FOR ACNT FILE ON LB: RATHER THAN SY: 
40 3 
41 3 DGOO02 LOOK FOR LATEST VERSION OF RSX11.SYS 
42 $ 
43% 3 MLGOO7 O3-NOV-78 FIND PHYSICAL LB: 
44 3 
45 3 MLGO44 30-JAN-79 SPOOL LISTING FILE (ACNT) 
46 3 
47 3 MLGO81 10-APR-79 DO NOT LEAVE ACCOUNT FILE LOCKED 
48 3 
49 3 
50 3 SA213 ADD FIELDS FOR SLAVE BIT, DEFAULT CLI NAME 
51: 3 AND CHANGE OPENING OF ACNT FILE 
52 3 
53 .LIST 
54 -MCALL FDBDF$,FDOP$A,FSRSZ$ 
55 


56 .IF DF RS$MPL 
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57 

58 -MCALL ACTDFS$ 

59 

60 -IFF 3RSSMPL 

61 

62 «MACRO ACTDFS,L,B 

63 -ASECT 

64 .= 

65 A.GRP:'L' ~BLKB 3 ; GROUP CODE (ASCII) 

66 A.MBR:'L' -BLKB 3 3; MEMBER CODE 

67 A.PSWD:'L' ~BLKB- 6 3; PASSWORD 

68 A.LNM:'L' -BLKB 14, ; LAST NAME 

69 A.FNM:'L' -BLKB 12. ; FIRST NAME 

70 A.LDAT:'L' -BLKB 6 ; DATE OF LAST LOG ON (DD/MM/YY HH:MM:SS 
71 A.NLOG:'L' -BLKB 2 3; TOTAL NUMBER OF LOGONS 
72 A.SYDV:'L' -BLKB 4 ; DEFAULT SYSTEM DEVICE 
73 -BLKW 1 ; UNUSED 

74. ASCLIe i! -BLKW 2 $; RADSO DEFAULT CLI NAME 
75 -BLKW 2 ; UNUSED (FOR COMPATIBILITY W/ MPLUS) 
76 A.LPRV:'L' -BLKW 1 ; LOGIN PRIVILEGE WORD 
77 -BLKW 1 ; UNUSED 

78 A.LEN  ='B' 128. ; LENGTH OF CONTROL BLOCK 
79 3 

80 3; BIT DEFINITION ON A.LPRV - LOGIN PRIVILEGES 

81 3 

82 AL.SLV ='B' 1 $ SLAVE TERMINAL ON LOGIN 

83 ~PSECT 

84 .ENDM 

85 

86 -ENDC 3 3RS$MPL 

87 

88 

89 3 CONSTANTS 

90 3 

91 LUN2 = 2 ; ACCOUNT FILE LUN 

92 S$BFLEN == 2048. ; LENGTH OF ACCOUNT FILE BUFFER 
93 

94 ACTDF§ <:>,<=> ; DEFINE OFFSETS INTO ACCOUNT FILE 
95 

96 SACTFL:: FDBDFS ; DEFINE ACCOUNT FILE FDB 

97 

98 -IF DF RSSMPL 

99 

100 FDOPSA LUN2,DSPT,,,FA.ENB!FA.DLK!FA.EXC 

101 
102 -IFF sRSSMPL 

103 

104 FDOPSA LUN2,DSPT,,,FA-ENB!FA.DLK 3 SETUP LUN, DSD, AND F.ACTL 
105 

106 -ENDC $RSSMPL 

107 

108 DSPT: «WORD 0 ; DATA SET DESCRIPTOR 

109 -WORD 0 3; DEVICE NAME (ALUN USED) 

110 -WORD 5 : 

lll -WORD DIRNAM ; 


112 «WORD 9. 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
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DIRNAM: 
FILNAM: 


SACTBF? : 


«WORD 


-ASCII 
-ASCII 
- EVEN 


FSRSZ$ 
.BLKB 


- EVEN 
- END 
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FILNAM 
/(0,0]/ 
/RSX11.SYS/ 
1 


$BFLEN 


3 


SET UP FOR A FILE IN GET PUT MODE 


CREATE ACCOUNT FILE BUFFER 
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ON DU Wh Re 


filename: 


We CO WE CO we WO 


-MCALL 
DCBDF$ 
CS$SPRT = 1 


3; DATABASE 


-MCALL 
»-MCALL 
«MCALL 


-IF DF 
-MCALL 
-TFF 
»MCALL 
- ENDC 


-psect 
-enabl gbl 
ENCRPT 
LUN4 = 
EFNI = 
PSWDBF : 
UIC: 
PUIC:: 
NAME: 
. EVEN 
NBOFSL 


FDPB: 
IOSB: 
OPNERR: 
FILOPN: 
NAMFLG: 
ENTRY: : 
MKT: 


FRMPTR?: 


ER1L: 
ER2: 
ER3: 
- EVEN 


INPUTS 


we “wae Oe 


PASWORD.MAC 


DCBDF$ 


This routine is callable from 'C' as well as from a Macro program. 
If CS$SPRT is defined then it becomes callable from 'C'. 


QIO$ ,MRKTS , WISES$S,QIOWS$S, ALUNS$S, CLOSE$ 
OPENSR, FINIT$,GET$ 


NBOFSL 
RSSMPL 


OPNS$U 


sRSSMPL 


OPENSU 


sRSSMPL 


c$data,d,rw 


QIO$ 

. BLKW 
» WORD 
. WORD 


«WORD 
MRKTS$ 
. WORD 
.ASCIZ 
.ASCIZ 
.ASCIZ 


ENCRYPTION SUBROUTINE NOT PRESENT 
LUN FOR SYSTEM DEVICE 
EVENT FLAG FOR ALL I/O 


we we we we 


0 ADDRESS OF PASSWORD BUFFER 
/000000/3; UIC 

UIC ; POINTER TO UIC 

/ / ; LAST NAME AREA IF NAME USED 


3 DEFINE BLOCK OFFSETS 


IO.RVB,LUN2,EFN1,,IOSB, ,<SACTBF,$BFLEN,,,1> 


2 ; I/O STATUS BLOCK 

0 ; A/C FILE OPEN ERROR FLAG 

0 ; FILE OPEN IF = l. 

-WORD 0 ; NAME FLAG, 0 = A/C, 1 = NAME 
0 ; ADDRESS OF A/C ENTRY 

1,60,1 3; WAIT FOR 1 SEC 

0 3 C - FRAME POINTER STORAGE 
<15>/**FATAL**----CANNOT FIND PHYSICAL LB:/ 
<15>/**FATAL**----ACCOUNT FILE OPEN ERROR/ 
<15>/**FATAL**----INVALID ACCOUNT/ 


TO MAC CALLABLE ROUTINE 


R3 --> POINTER TO ACCOUNT 
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PUT UNIT NO. INTO USER STATE R2 


ae 


ST. R4 --> POINTER TO PASSWORD BUFFER 

58 3 

59 

60 »psect cS$text,i,ro 

61 

62 VALACNT:: 

63 

64 IF DF C$SSPRT 

65 jsr R5,c$sav 

66 MOV R5,FRMPTR 3; SAVE FRAME POINTER 

67 MOV 4(R5),R3 3; GET POINTER TO ACCOUNT OR NAME 

68 MOV 6(R5),R4 3; GET POINTER TO PASSWORD 

69 .ENDC 

70 

71s; 

72 3 NOW FILL UP UIC AND PASWORD IN THEIR RESPECTIVE PLACES 

73. 3 

74 MOV #UIC, PUIC 3; set up pointer to UIC 

75 MOV R3,(SP) 3 PARAM -> POINTER TO ACCOUNT OR NAME 
76 CALL ACCNT 3; CHECK FOR ACCOUNT OR USER NAME 

77 TST RO 3; RETURN CODE 

78 BEQ 15$ ; IF EQ THEN ACCNT SPECIFIED CORRECTLY 
79 3; AND XFERED UIC TO CORRECT PLACE 

80 CMP RO, #1 3; SEE IF NAME SPECIFIED OR NOT 

81 BEQ 10$ 3; IF EQ THEN IT IS SPECIFIED 

82 JMP ERR3 3; SYNTAX ERROR 

83 108: 

84 MOV #NAME , R2 3; ADDRESS OF NAME 

85 MOV #14.,R1 3; LENGTH OF NAME 

86 125: 

87 MOVB (R3)+,(R2)+ ; XFER NAME 

88 SOB R1,12$ 3 LOOP 

89 

90 158: 

91 MOV R4, PSWDBF 3; ADDRESS OF PASSWORD 

92 2058: 

93 SWSTKS 50$ 33 SWITCH TO SYSTEM STATE 

94 MOV SDEVHD,R2 33 START AT BEGINNING OF DEVICE TABLE 
95 308: 

96 CMP D.NAM(R2),#"LB 33 AND LOOK FOR LB: 

97 BEQ 40$ 33 IF EQ FOUND 

98 MOV D.LNK(R2),R2 33 NEXT DEVICE 

99 BNE 30$ $3 TRY IT! 

100 CLR 4(SP) 33; INDICATE ERROR BY SETTING USER Rl = 0 
101 RETURN 33 RETURN TO USER STATE 

102 408: 

103 MOV D.UCB(R2),RO0 33 GET UCB ADDRESS 

104 MOV U.RED(RO),RO 33 FIND PHYSICAL LB:(I.E. FIRST REDIRECT) 
105 MOV U.DCB(RO),R2 33; FIND DCB OF PHYSICAL DEVICE 
106 MOV D.NAM(R2),4(SP) 33; PUT LB DEVICE INTO 1USER STATE Rl 
107 SUB D.UCB(R2),R0 33 CALCULATE UNIT NO. 

108 MOV D.UCBL(R2),R1 a3 

109 CALL SDIV re 

110 ADD D.UNIT(R2),RO 33 

111 BIC #177400,R0 33 CLEAR UNWANTED BITS 

9 


112 MOV RO,6(SP) 
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113 RETURN 33; RETURN TO TASK STATE 

114 508: 3; REF LABEL 

115 CLR OPNERR 3; SET TO OPEN ERROR 

116 TST Rl ; DID WE FIND PHYSICAL LB:? 
117 BNE 60$ 3; IF NE YES 

118 JMP ERR1 ; NO --- ERROR 

119 6058: 

120 CLR N.FID+F.FNB+SACTFL 3 ASSUME NOT OPEN BY FILE ID 
121 ALUNSS #LUN2,R1,R2 ; ASSIGN LUN TO DEVICE. 

122 MOV STKPS,MKT+M.KTMG 3 USE TICKS/SEC TO MARK TIME FOR 1SEC. 
123 708: 

124 CALL OPEN ; OPEN ACCOUNT FILE 

125 BCC 100$ ; IF CC - OPEN SUCCESFUL. 
126 CMP OPNERR , #5 ; FIVE FAILURES? 

127 BLT 90$ 3; NO 

128 803: 

129 JMP ERR2 3; YES 

130 908: 

131 DIR$ #MKT ; NO,WAIT FOR 1 SEC 

132 BCS 80$ 3; ERROR 

133 WISE$S #1 3; WAIT FOR TIME 

134 INC OPNERR 3; INCREMENT TIME TRIED 

135 BR 70$ 3; TRY AGAIN 

136 3; 

137 3 SEARCH FOR ACCOUNT IN FILE 

138 3 

139 1008: 

140 CALL SEARCH ; SEARCH FOR ACCOUNT NUMBER 
141 BCC 110$ 3; IF CC - OKAY 

142 CALE CLOSE 3; CLOSE THE ACNT FILE BEFORE GIVING ERROR 
143 JMP ERR3 3; ACCOUNT OR: PASSWORD NOT FOUND 
144 1108: 

145 CALL CLOSE 3; CLOSE THE ACNT FILE 

146 MOV #0, RO 3; INDICATE SUCCESSS TO CALLER 
147 RET: 

148 IF DF CSS$SPRT 

149, MOV FRMPTR,RS 3; RESTORE FRAME POINTER 

150 jmp c$ret 3; RETURN TO 'C' CALLER 

151 .IFF 

152 RETURN 3; RETURN TO 'MAC' CALLER 
153 . ENDC 

154 

155 ERRI1: 

156 3 MOV #ER1,R1 3; ADDRESS OF ERROR MESSAGE 
157 MOV #-1,R0 ; RETURN ERROR CODE 

158 BR ERMSG 3; DISPLAY IT 

159 ERR2: 

160 3 MOV #ER2,R1 ; ADDRESS OF ERROR MESSAGE 
161 MOV #-2,R0 3; RETURN ERROR CODE 

162 BR ERMSG 

163 ERR3: 

164 ; MOV #ER3,R1 ; THIRD ERROR 

165 MOV #-3,RO ; RETURN ERROR CODE 

166 ERMSG: 

167 3 QIOWSS #1IO0.WVB,#5,#1,,,,<R1,#80.,#40> 


168 3 CLR RO ; SET UNSUCCESSFUL 
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169 JMP RET 3; RETURN TO CALLER 

170. 3+ 

171 3 *%** - SEARCH - SEARCH FILE FOR ACCOUNT NUMBER 

172 3 

173 3 OUTPUT: 

174 3 RO - ADDRESS OF ACCOUNT ENTRY 

175 3 CARRY CLEAR - ACCOUNT FOUND 

176 3 CARRY SET - ACCOUNT NOT FOUND 

177 3- 

178 SEARCH: MOV #FDPB,R4 ; GET FILE DPB ADDRESS 
179 CLR OPNERR ; ZERO ATTEMPT COUNT (FOR M+ ONLY) 
180 MOV #1,Q.IOPL+10(R4) ; SET TO START AT VBN 1 
181 CLR Q.IOPL+6(R4) ; 

182 5$: CALL Qio ; READ NEXT BLOCK 

183 MOV IOSB+2,R2 ; GET COUNT OF WORDS READ 
184 BEQ 25$ ; ZERO, NO WORDS READ 

185 MOV #SACTBF , RO ; GET BUFFER ADDRESS 

186 105: TST NAMFLG ; IS NAME SPECIFIED? 

187 BEQ 15$ ; NO 

188 MOV RO, ENTRY ; YES, SAVE ENTRY ADDRESS 
189 MOV Rl, -(SP) 3; SAVE BYTES LEFT 

190 MOV R2, -(SP) ; 

191 ADD #A.LNM, RO ; GET ADDRESS OF LAST NAME 
192 MOV #NAME ,R1 ; GET ADDRESS OF NAME ENTERED 
193 MOV #14.,R2 ; SET LENGTH OF NAME 

194 12$: CMPB (RO)+,(R1)+ 3; NAMES THE SAME? 

195 BEQ 14$ ; YES 

196 SEC 3; NO 

197 BR 18$ : 

198 148: DEC R2 ; SO FAR 

199 BGT 12$ ; CONTINUE TILL END 

200 MOV ENTRY, RO ; RESTORE ENTRY ADDRESS 
201 BR 17$ ; NAME IS THE SAME 

202 158: CMP UIC,A.GRP(RO) ; GROUP CODES MATCH 

203 BNE 20$ ; NO 

204 CMP UIC+2,A.GRP+2(RO) 3; MAYBE 

205 BNE 20$ ; NO 

206 CMP UIC+4,A.MBR+1(RO) ; YES, MEMBER CODES MATCH? 
207 BNE 20$ ; NO 

208 MOV RO, ENTRY ; SAVE ENTRY POINTER 

209 MOV R1,-(SP) ; SAVE R1 AND R2 

210 MOV R2,-(SP) ; 

211 178: CALL TPSWD ; CHECK PASSWORD 

212 185: MOV (SP)+,R2 ; RESTORE R1 AND R2 

213 MOV (SP)+,R1 : 

214 MOV ENTRY, RO ; RESTORE ENTRY POINTER 
215 BCC 405 3; PASSWORD CHECKS OUT 

216 208: ADD #A.LEN, RO 3; POINT TO NEXT ENTRY 

217 SUB #A.LEN,R2 ; COMPUTE WORDS LEFT IN BUFFER 
218 BHI 10$ ; LOOP, MORE LEFT 

219 255: CMPB #1IE.EOF,1OSB ; END OF FILE? 

220 BEQ 30$ ; YES 

221 TSTB IOSB ; ANY ERRORS? 

222 BMI 30$ ; YES 

223 ADD #SBFLEN/512.,Q.IOPL+10(R4)3 NO, POINT TO NEXT VBN 
224 ADC Q.IOPL+6(R4) ; 
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225 BR 5$ 3; READ IN NEXT BUFFER 
226 308: SEC 3; ERROR, ACCOUNT NOT FOUND 
227 40S: RETURN ; 
228 
229 
230 
231 3+ 
232 3 *** - TPSWD - TEST PASSWORD 
233: % 
234 $3 CARRY SET - INVALID PASSWORD 
235 3 CARRY CLEAR - GOOD PASSWORD 
236 $3 
237 3 NOTE: THIS CODE ALLOWS PSW/TIME. IF THERE IS A/, IT DISREGARDS 
238 3 WHAT FOLLOWS BECAUSE, BATCH (ON M+ ONLY) SENDS TIME LIMIT TO BE 
239 3 DISREGARDED BY HELLO 
240 3- 
241 TPSWD: MOV PSWDBF ,R1 3; LOCATION OF PASSWORD FIELD 
242 MOVB 4(R1),-(SP) ; PUT PASSWORD ON STACK 
243 MOVB 5(R1),1(SP) ; 
244 MOVB 2(R1),-(SP) ; 
245 MOVB 3(R1),1(SP) ; 
246 MOVB O(R1),-(SP) ; 
247 MOVB 1(R1),1(SP) ; 
248 MOV SP,R1 3; POINT TO PASSWORD 
249 MOV RO,-(SP) 3; SAVE RO 
250 MOV #6 ,RO 3; LENGTH OF PASSWORD FIELD 
251 
252 101$:  CMPB (R1),#40 3; VALID CHAR? 
253 BLO 105$ ; LO-NO. 
254 CMPB (R1),#'/ ; IS IT SLASH (TIME-LIMIT COMING)? 
255 BEQ 105$ 3; EQ- YES,,TREAT AS END-OF-PASSWORD 
256 CMPB (R1),#140 3; LOWER CASE? 
257 BLOS 102$ ; NO 
258 CMPB (R1),#172 3; MAYBE 
259 BHI 102$ ; NO 
260 BICB #40, (R1) 3; CONVERT TO UPPER CASE 
261 1028: 
262 INC Rl 3; LOOK AT NEXT BYTE 
263 DEC RO 3; DECRM CHAR COUNT 
264 BGT 101$ 3; GI- MORE TO DO. 
265 BR 108$ ; NO NEED TO SPACE FILL. 
266 1058: 
267 DEC RO 3; ANY MORE TO FILL? 
268 BMI 108$ ; MI- NO. 
269 MOVB #40,(R1)+ 3; SPACE-IT-OUT! 
270 BR 105$ 3; TRY AGAIN. 
271 108$: TST #ENCRPT 3; PASSWORD ENCRYPTION SUBR PRESENT? 
272 BEQ 109$ 3; EQ- NO. 
273 MOV SP,RO 3; SHOW WHERE PASSWORD IS 
274 ADD #2 ,R0 ; 
275 CALL ENCRPT 3; ENCRYPT THE PASSWORD 
276 109$: MOV (SP)+,R0 3; RESTORE RO 
277 ADD #A.PSWD,RO ; POINT TO PASSWORD IN FILE 
278 MOV SP,R1 3; POINT TO (FILLED) ENTERED PASSWORD 
279 MOV #6.,R2 3; SET SIZE OF PASSWORD 
280 28: 
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281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
202 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 


323 © 


324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
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CMPB (R1)+, (RO)+ 


BNE 10$ 
DEC R2 
BGT 2$ 
BR 20$ 
4S: CMPB (RO)+,#' 
BNE 10$ 
DEC R2 
BGT 4$ 
BR 20$ 
10$: ADD #6,SP 
SEC 
RETURN 
208: ADD #6, SP 
RETURN 


wk — OPEN - OPEN A FILE 


wee we we 


OPEN: 


NO, MATCH? 
NO, ERROR 
ALL DONE? 
NO, LOOP 
YES 

BLANK FROM HERE ON? 
NO, ERROR 
DONE? 

NO, LOOP 
YES _ 
CLEAN STACK 
SET ERROR 


CLEAN STACK 


Se We We We CO WO Oe WH WOH OO OH OF OO OH OO 


; NOTE - RECORD LOCKING IS OPTIONAL ON M. THIS IS WHY M IS NOT OPENED 


; FOR SHARED ACCESS. 
-IF DF RS$MPL 
OPNSSU #5ACTFL,,,#FD.RWM 
~IFF ;RSSMPL 


OPENSU #SACTFL,,,#FD.RWM 


- ENDC 3RSSMPL 
BCS 10$ 
INC FILOPN 
108: 
RETURN 
’ 
3; «ee —- CLOSE - CLOSE FILE 
; 
CLOSE: 
TST FILOPN 
BEQ 10$ 
CLR FILOPN 
CLOSES #SACTFL 
10$: 
RETURN 
; 
3; wee —- QTO - ISSUE QIO 
; 
; INPUT: 
; R4 - DPB ADDRES 
; 
QIO: 


DIRS R4 
BCS 10$ 


; OPEN FILE 


3 OPEN FILE 


IF CC ERROR 
; SET FILE IS OPEN 


we 


IS FILE OPEN? 

NO 

FILE IS NOW CLOSING 
YES - CLOSE FILE 


wee we woe we 


; ISSUE QIO 
; ERROR 


RETURN (NO ERROR- ADD CLEARS CARRY) 
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337 
338 
339 
340 
341 
342 
343 
344 
345 
346 


10$ 


MOVB 
WISESS 


RETURN 


-psect 
even 
-psect 
even 
- END 


Q.IOEF(R4),R5 
R5 


c$text,i,ro 


c$data,d,rw 


GET EVENT FLAG TO WAIT ON 
AND WAIT 
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/* “@(#)compat.h 1.9 4/15/85" */ 


/* added by billn */ 

/* #include <exos/misc.h> */ 

#ifdef index /* system 3 or 5 */ 

#include <fcntl.h> 

#define dup2(f,n) { close(n); fcentl(f, F DUPFD, n)3} 
endif 

10 #ifndef void 

11 #define void int 

12 #endif 


WOON DU & Ww hb re 


14. #define VOID (void) 


16 #ifndef SIGCHLD 

17 #define SIGCHLD SIGCLD 
18 #endif 

19 /* end billn */ 


21 #ifndef MAXPATHLEN 
22 +#define MAXPATHLEN 33 
23 ~#endif 


25 #define receive data rec data 

26 #define wait3 wait2 

27 #define initgroups(a,b) 

28 #define inappropriate request inapreq 


30 #ifdef BSD4dot2 

31 #else 

32 #ifdef V7 

33 #include <sys/timeb.h> 

34 struct timeval { long tv_sec3 long tv_usec3 }3 

35 struct timeb ftimeb; 

36 #define gettimeofday(a,b) ( ftime (&ftimeb), \ 

37 (a)->tv_sec = ftimeb.time, (a)->tv_usec = ftimeb.millitm) 
38 #else 

39 struct timeval { long tv sec; long tv_usec; }3 

40 extern long xtime()3 

41 ##define gettimeofday(a,b) ((a)->tv_sec = time(0), (a)->tv_usec = 0) 
42 +endif V7 

43  #endif BSD4dot2 


45 #ifndef CTRL 
46 ##define CTRL(x) 037&'x' 
47 #endif 


49 #define SOL SOCKET 0 
50 #define SO REUSEADDR 0 
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filename: LIBSOCK.H 


this file contains all the system dependent definitions 


OomnD Uf WD 
% 


* used in the socket library . 
af 

10 

11 extern char *xstrchr(), *xstrrchr()3 

12 


13. #define HOSTS "LB:[1,1]HOSTS.NET" 
14 #define HOSTSLOCAL "LB:[1,1]HOSTLOCAL.NET" 
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WON AU PWN 


22:57 1986 


/*@(#)varpat.h 


#define 


#define 
#define 
#define 
#define 


connected 


connecthelp 
mdeletehelp 
receivehelp 
verbosehelp 


varpat.h Page 1 


1.8 4/11/85*/ 


conned 


connhelp 
mdelhelp 
recehelp 
verbhelp 
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WON AUP WHE 


/ ve 
* filename: ACCEPT.C 
* / 


#include <xstdio.h> 
#include <xerrno.h> 
#include "Libhdr.c" 


xaccept(s, from) 
int s3 
struct sockaddr “from; 
{ 
register XFILE *file; 
struct SOictl SOictl1;3 
struct iosb iosb3 
int ret$ 


if( s <0 || s >= XNFILE ) 
return( XEBADF ); 
file = & xiobls]; 
if( !(£ile-> flag & XUsed)) 
return( XEBADF )3 
SOictl.hassa = from ? 1 : 03 
ret = libemt(IO ACS|SA ACC, &iosb,0, 0, &SOictl, 0, 0, (int) file-> sys id); 


libcopy(&SOictl.sa,from,sizeof(struct sockaddr) )3; 
return(ret)3 


* Objective of this function is to process different type of error resulting 

* from a call to the driver via QIO ( or emt call in 'C' ) call. A QIO 

* executive directive call reports error in two different ways through the 

* DSW ( directive status word ) and also in the IO statusblock. Again in the 
* IOSB it 1s divided into two parts one device specific and the other generic. 
* The generic and the dsw are returned to the caller after shifting it by -512 
* and the device specific code is just sign changed. If all is fine then an 
non zero value is returned. 
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L'. fe 
2 * FILENAME ALLOC.C 
3 * 
4 x / 
5 
6 #include <rsxos.h> 
7 #include <xstdio.h> 
8 typedef int ALIGN; /* forces alignment on PDP-11 */ 
9 
10 union header { /* free block header * / 
11 struct { | 
12 union header *ptr3 /* next free block */ 
13 unsigned size} /* size of this free block */ 
14 fos 
15 ALIGN x$ /* force allignment of blocks */ 
16 335 
17 
18 typedef union header HEADER} 
19 
20 
21 static HEADER _ base = {0}; /* empty list to get started */ 
22 static HEADER *“allocp = XNULL; /* Last allocated block */ 
23 


24 char *xmalloc(nbytes) /* genral- purpose storage allocator */ 
25 unsigned nbytes3 


26 

27. static HEADER *morecore()3 

28 register HEADER *“p, *q3 

29 register int nunits$ 

30 

31 nunits = 1+(nbytestsizeof (HEADER)-1)/sizeof (HEADER) ; 
32 if( (q = allocp) == XNULL) { /* no free list yet */ 
33 __base.s.ptr = allocp = q = & base; 

34 __base.s.size = 0; 

35 } 

36 for( p=q->s.ptr$3 $ q=p, p=p->s.ptr ) { 

37 if( p->s.size >= nunits) { /* big enough */ 
38 if( p->s.size == nunits) /* exactly */ 
39 q->s.ptr = p->s.ptr;3 

40 else { /* allocate tail end */ 
41 p->s.size -= nunits; 

42 p += p->s.size}3 

43 p->s.size = nunits3 

44 } 

45 allocp = q3 

46 return ((char *)(p+1))3 

47 } 

48 if( p == allocp ) /* wrapped around free list */ 
49 if(( p = morecore(nunits)) == XNULL) 

50 return(XNULL); /* none left */ 
51 } 

52 } 

53 

54 

55 #define NALLOC 16 /* #units to allocate for memory */ 
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HEADER *morecore(nu) /* ask system for memory */ 


unsigned nu}3 


} 
xfree(ap) /* put block ap in free list % / 
char *“ap3 
register HEADER *“p, *q3 
p = (HEADER *)ap -13 /* point to the header */ 
for( q=allocp; !(p > q && p < q->s.ptr)3 q=q->s.ptr ) 
if( q >= q->s.ptr && (p >q || p < q->s.ptr) ) 
break} /* at one end or other */ 
if( ptp->s.size == q->s.ptr) { /* join to upper nbr * 
p->s.size += q->s.ptr->s.size3 
p-7s.eptr = q->s.ptr--s.ptr3 
} else 
p-?s.eptr = q->s.ptr3 
if( qtq->s.size == p ) /* join to lower nbr * 
q->s.size += p->s.size} 
q->s.ptr = p->s.ptr; 
} else 
q-7s.ptr = p35 
allocp = q3 
} 
#define EXTK 01531 
#define BLK 64 
extern int _brk; 
sbreak(nbytes) 
register int nbytes$ 
{ 
register int ret = _brk; 


register char “cp} 
register HEADER “up; 
register int rnu3 


rnu = NALLOC * ((nu+NALLOC-1) / NALLOC); 

cp = sbreak(rnu * sizeof(HEADER) ); 

if( (int)cp == -1) /* no space at all */ 
return ( XNULL )3 

up = (HEADER *)cp;3 

up->s.size = rnu} 

xfree((char *)(up+l1))3 

return(allocp)$ 


if( emt(EXTK, 1+(nbytes-1)/BLK, 0) >= 0) f{ 
_brk += nbytes} 
return ret; 


} 
rd * 


xprintf(" Task extention failed Zo\n", rval)3 


else f{ 


Apr 30 21:33 1986 alloc.c Page 3 


113 */ 
114 return -1; /* No memory 
115 } 


116 } 
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WOnNA UNH WDN 


ate 
w 


* filename: BOARD.C 


ate / 
no 


#define u_long long 
#include <xstdio.h> 
#include <xspecial.h> 
#include <xerrno.h> 


include < 


libhdr.c> 


#include <brdioctl.h> 


#include < 


init.h> 


#include <route.h> 


int brdopen( brd_ no, mode) /* open an administrative channel 


int brd no} 


int mode}; 
t . 
int ret; 
struct iosb iosb} 
if ( mode == 1 ) /* mode is readonly %/ 
mode = 03 
else /* else mode is read write */ 
mode = 13 
ret = Libemt(IO EXC|EX OPN, &iosb, 0, 0, 0, mode, 0, 0); 
if ( ret == 0 ) 
ret = iosb.nread3 /* return channel # */ 
return ( ret )3 
} 
int xbrdclose( fd ) /* close an administrative channel 
int fd3 
to 
int ret; 
struct iosb iosb$3 
ret = Llibemt(IO EXC|EX CLS,&iosb,0,0,0,0,0,fd)3 
return ( ret )3 
} 
int xbrdwrite( sys id, buf, len) 
int sys id; /* must have been char *sys id 
char “buf 3 
int len; 
{ 
int fd, ret; 
struct iosb iosb$3 


register XFILE *file;3 


ret = 1 


ibemt (IO WLB,&iosb,buf,len,0,0,0,sys_ id); 


if ( ret ==0). 


ret = 


return 


iosb.nread3 
( ret )3 


*/ 


ste / 
ray 


sh / 
ow 
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5 


int sys id; 

char “buf; 

int len; 

{ 
int fd, ret; 
struct iosb iosb3 
register XFILE *file;3 


ret = libemt(IO RLB,&iosb,buf,len,0,0,0,sys id); 
if ( ret == 0 ) 

ret = iosb.nread}3 
return ( ret )3 


} 


int xbrdioctl( sys id, cmd, arg ) 


int sys id, cmd; 
char *“arg}3 


{ 

int 1, fd, len = 0, ret; 
long along = 03 

Ushort base = 0 , off = 05 
char “buf = 03 


int qio fn 3 
struct iosb iosb3 
register XFILE *file; 


switch ( cmd ){ 

case BRDINIT: 

/* translate the mode */ 

base = *( int *) arg; 
switch ( base ){ 


case 0: base = 13 /* host down Load 
break$ 
case 1: base = 23 /* net down load 
break} 
case 2: base = 03 /* Link Level mode 
break$ 
case 0x80: /* infinite timeout 
base |= 13 /* include with download mode * 
break} 
default: 
base = 13 /* forced to download mode * 
} 
qio fn = IO EXC|EX INT; 
break} 


case BRDADDR: 
case BRDSTART: 
along = *( long * ) arg; 
base = (Ushort)( ( along >> 16 ) & OxOOOOfffF ); 
off = (Ushort)( along & OxO000fffF ); 
if ( cmd == BRDADDR ) 
qio fn = IO EXC|EX POS; 


/* mode of configuration */ 


int xbrdread( sys id, buf, len ) /* read boards memory */ 
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113 
114 
LED 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


else 
qio fn = IO EXC|EX STR; 
break} 


case BRDGSTAT: 
case BRDRSSTAT: 
buf = ( char *) arg3 


len = sizeof ( struct EXbdstats );3 


if ( cmd == BRDGSTAT ) 
qio fn = IO EXC|EX STS; 
else 
qio fn = IO EXC|EX RST; 
break; 


case BRDGCONF: 
buf = (char *) arg; 
len = sizeof (struct init msg); 
qio £n = IO EXC|EX CNF; 
break; 


case BRDSARP: 
case BRDGARP: 
case BRDDARP: 
buf = (char *) arg; 


len = sizeof( struct EXarp ioctl); 


if ( cmd == BRDSARP ) 

qio fn = IO EXC|EX SAR; 
else if ( cmd == BRDGARP ) 

qio fn = IO EXC|EX GAR; 
else 7 

qio fn = IO EXC|EX DAR $ 
break; * 


case BRDADDRT: 
case BRDDELRT: 
case BRDSHOWRT: 
case BRDDISPRT: 
buf = (char *) arg; 


len = sizeof ( struct rtentry )3 


if ( cmd == BRDADDRT ) 
qio fn = IO EXC|EX ART; 
else if ( cmd == BRDDELRT ) 
qio fn = IO EXC|EX DRT; 
else if ( cmd == BRDSHOWRT ) 
qio fn = IO EXC|EX SRT; 
else qio fn = IO EXC|EX NRT; 
break; 


default: 
break; 


return ( libemt(qio fn, &iosb, buf, 


len, 0, base, off, sys id 


)) 
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169 

170 

171 xbrdopen( brdno, mode ) 

172 

173 int brdno3 /* ignore for now */ 
174 int mode; 

175 { 


176 int rval3 

177 int exosfd3 

178 int ioflag; 

179 int uflag; 

180 register XFILE *file;3 

181 

182 uflag = xtranmode( mode, &ioflag); 
183 if ( uflag <0 ) 

184 return( uflag ); 

185 rval = brdopen(1, mode )3 
186 if(€ rval <0 ) 


187 return( rval )3 

188 exosfd = xnewod(); /* get a free file descriptor */ 
189 if( exosfd < 0 ){ 

190 xbrdclose( rval )3 

191 return( exosfd )3 

192 


193 file = & xioblexosfd]; 

194 file-> flag |= ioflag; 

195 file-> sys id = (char *)rval3 
196 file-> read = xbrdread; 

197 file-> ioctl = xbrdioctl}3 

198 file-> write = xbrdwrite3 

199 file-> close = xbrdclose; 

200 return( exosfd )3 

201 } 
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1 static char sccsIdl] = "@(#)bzero.c 1.4 3/26/85" 
2 
3 / *e 
4 code to make 4.2 style code, sort of, happy. 
5 * Fi 
6 bzero( pt, len ) 
7 * 
8 clear a block 
9 %/ 
10 


ll char *pt; 
12 int len; 


13 { 

14 

15 for( 3 len > 0 3 --len ) 
16 { 

17 Xptt+ = 05 

18 } 
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/* 
* filename: CATCHOOB.C 
*/ 


#include <xgenlib.h> 
#tdefine MAXCHN 40 
#include "libhdr.c" 


struct _asts _ stast[MAXCHN] = { 0 }; 


extern int astcatch(); /* 
int xcatchoob( s, handler) 
int s} 


int (*handler)()3 


register struct iosb “io 
int ch no3 


if ( iosb = giosb()){ 


this is the ast service routine written in macro 


if ( __stast[ch no].stast == FREE){ 


__stast[ch no].stast 


ch_no = (int ) xiobls]. sys id; /* get channel number */ 
= USED; 
ee /* store xiob number */ 


__stast[ch no].xiobno 


__stast[s].userast = handler; 
emt(QIO,IO ACS|SA_URG,SOLUN,0,iosb, astcatch,0,0,0,0,0,ch no); 


} 


else return (-1)3 


else return (NOSOIOSB)3 


} 


libast( iosb ) 

struct iosb *iosb3 

{ 5 
Ushort ch no} 
Ushort s3 


if( iosb ) /* if a iosb was specified-- which is in this case */ 


{ 


ch no = iosb->nread} 
fiosb(iosb)3 
stastLch no].stast 


/* this is set in the ACP */ 


= FREE$3 /* mark it free for use */ 


s = stast[ch_ no].xiobno; /* get file no. */ 
if ( stast{ch no].userast ) 
(* stast[ch no].userast)(s)3 


3 


struct iosb * 
giosb() 


return(xmalloc( sizeof (struct iosb) ))3 


fiosb(iosb) 


Ne 
wry 
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57 struct iosb *iosb3 
58 { 

59 xfree(iosb)3 
60 } 
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1 #include <xgenlib.h> 

2 #include <fcs.h> 

3 

4 char *inprm[MAXPRM] = {0}; /* array of pointers to input string */ 
5 

6 extern char xctypel ]; 

7 extern long radix(); 

8 

9 

10 cmain(pcli) 
11 char *pcli; /* poiter to command line */ 
12 { 
13 

14 int count = 03 
15 char *p = peli; 

16 int b-=.35 

17 

18 while( *p ) { *p = tolower( *p )3 ++p3 } 
19 while( pcli && *pcli ) { 
20 switch ( *“pcli ) { 
21 
22 case ‘<': 
23 inprm[0] = pcli + 13 
24 break; 
25 case '>': 
26 inprm[1] = peli + 13 
27 break} 
28 case '~': 
29 inprml2] = peli + 1; 
30 break; 
31 default : 
32 inprmLit+] = pcli; 
33 countt+$ 
34 } 
35 peli = firstwhite( peli, ' ')3 
36 *pcelitt+ = 0; /* make argumet as string */ 
37 peli = skipwhite( pcli, ' ')3 
38 } 
39 return main(count, &inprm[3])3 
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/* 
* filename: CONNECT.C 


#include <xstdio.h> 
#include <xerrno.h> 
#include "Libhdr.c" 


xconnect(s, addr) 
int s3 
struct sockaddr “addr}3 


{ 


register XFILE *file;3 
struct SOictl SOictl; 
struct iosb iosb3 


if( s <0 || s >= XNFILE ) 
return( XEBADF )3 
file = & xiob[s]; 
if( !(file-> flag & XUsed )) 
return( XEBADF ); 
if ( addr){ 
SOictl . hassa = 13 
libcopy(addr,&SOictl.sa,sizeof (struct sockaddr) )$; 


else SOictl.hassa = 03 
return(libemt(IO ACS|SA CON, &iosb, 
0, 0, &SOictl, 0, 0, (int) file-> sys id))3 
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#include <rsxos.h> 
#include <xstdio.h> 
#include <fcs.h> 


extern struct rcb reps 

struct dblbuf hbuf={0}, nbuf= {0}; 
/ se 

extern int disk efn;3 

* / ~ 

extern char luntbl[]; 

extern struct dblbuf hbuf,nbuf; 


#define CNTRLZ 0366 


dio(sysid, call,ast,wait) 
register struct rcb *sysid} 
int ( * call)()3 
int ( * ast)()3 
int ( * wait)(); 
{ 
static int iosbl2] = {0}; 
int rval3 
int ret$ 


if( sysid->flags & DBLBUF) { 
/[* 
disk efn += d efn()3 
x] 
emt (WISE, DISKEFN) 3 /* stop for any pending i/o */ 
/* efn is set at ast */ 
hbuf.stat[hbuf.active] = 03 
hbuf.active = !hbuf.active}3 
rval = hbuf.stat[hbuf.active]; 
if( rval > 0) { 
emt (CLEF ,DISKEFN) 5 
ret = ( *call)(sysid->fdb,sysid->bptr,0,iosb,ast)} 
if(ret <= 0) { 
hbuf.statl!hbuf.active] = ret3 
emt (SETF,DISKEFN) 3 
} 
} 
sysid->bptr = hbuf.buffer[hbuf.active]; 
else { 
rval = ( *call)(sysid->fdb,sysid->bptr,DISKEFN,iosb,0); 
if(rval > 0) { 
(* wait)(sysid->fdb,iosb)$ 
rval = iosbl1]; 
} 
} 
sysid->bnptr = sysid->bptr3 
return rval3 


5 


static char mask[8] = {1, 2, 4, 8, 16, 32, 64, 128}; 
#define BYTE 8 


Apr 30 21:33 1986 dio.c Page 2 


57 #define MAXLUN 255 
58 assign(lun) 
59 int lun; 


61 *(luntbl + lun/BYTE) |= mask{ lun % BYTE]; 
63 } 


65 dassign(1lun) 
66 int lun$ 


69 *(Luntbl + Lun/BYTE) &= ~mask[ lun % BYTE]; 


72 glun() 


74 register int bit = 03 
75 int ie 


77 for (i = 13 i <= MAXLUN3 ++i) { 

78 if( !(*(luntbl + i / BYTE) & mask[ i % BYTE] ) ) { 
79 *( Luntbl + i/BYTE ) |= mask[ i%BYTE]; 

80 return i$ 

81 } 

82 } 

83 return -l; 


88 nstat(iosb) 
89 register struct iosb *iosb;3 


90 

91 register int *“p} 

92 

93 p= &nbuf.statLl!nbuf.activel; 

94 if ((iosb->cc >= (unsigned char)O ) && (iosb->lc == ( unsigned char)0)) 
95 *p = 1osb->nread}3 

96 else if(iosb->cc < ( unsigned char) 0 ) 

97 *p = 1osb->cc - 5123 

98 else 

99 *p = ( -(iosb->lc & OxFF)); 

100 emt(SETF, SOEFN)3 /* socket i/o is completed */ 
101 

102 } 

103 


104 dstat(iosb) 
105 register struct iosb “iosb3 


106 { 

107 register int *p3 

108 

109 p = &hbuf.stat[!hbuf.active]; 
110 

lil if( iosb->cc == CNTRLZ ) 


112 *p = 03 
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113 else if(iosb->cc > 0) 

114 *p = iosb->nread}3 

115 else 

116 *p = L1osb->cc - 5123 

117 emt (SETF, DISKEFN); /* disk i/o is completed * 
118 } 

119 


120 


Apr 30 
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/ x 

RSX version of getclient. 
ve / 

#include <xstdio.h> 
#include <socket.h> 
#include <rsxos.h> 
#include <in.h> 


getclient( type, pf, sin, options, typical serv ) 


int type3 

struct sockproto *pf3 
/* 

struct sockaddr *“sin3 
struct sckadr in “sin$ 
int options; | 

int (*typical serv)()3 


t * 
int s3 
int errno3 
int status} 
struct sockaddr from} 
start: 
s = xsocket( type, pf, sin, options )3 
if (s <0) 
{ 
xperror( s, "getclient socket" ); 
xsleep( 5 )3 
goto start; 
} 
/* 
wait for service request 
we i 
if ( ( errno = xaccept( s, &from ) ) < 0 ) 
{ 
xperror( errno, "getclient accept" ); 
xclose( s )$3 
xsleep( 5 )3 
goto start} 
} 
vi we 
RSX specific process management 
* / 
xspawn()3 
(*typical serv)( s, &from )3 
} 
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#include <rsxos.h> 
#include <xstdio.h> 
#include <xctype.h> 
#include <xerrno.h> 
#include <xspecial.h> 
#include <libsock.h> 


extern 
extern 
extern 
extern 


char * 


char *xstrchr(), *xstrrchr()3 
char *firstwhite()}3 
char *skipwhite()3 
char *“lastwhite()3 


xghname(name, nchars) 


char “name; 
int nchars}3 


int od3 

XFILE *op3 

char hbuf[XBUFSIZ], *cp, *ahost3 
int rc$3 


od = xdopen( HOSTS, XFREAD | XFASCII , FILE NAME); 


if( ( od < 0) || !€ op = xodopen(od, "r")) ){ 
xperror( XEBADF, "“gethname:"); 
fo7=-1¢% 


goto egress} 


} 


while (XNULL != xogets(hbuf, sizeof (hbuf), op)) { 
*xstrchr(hbuf, '\n') = 03 
if (hbuf[0] == '#') 
continue} 
for Css) { 
cp = lastwhite(hbuf, ' '); 
if (cp == XNULL) 
break; 
if (!xstremp(cpt+tl, “localhost")) { 
ahost = firstwhite(hbuf, ' ')+l3 
ahost = skipwhite(ahost); 
cp = firstwhite(ahost, ' '); 
if ~Cep) 
*Cp = 0; 
if (xstrlen(ahost)+l > nchars) { 
re = l5 
goto egress; 
} 
xstrcpy(name, ahost); 
re = 03 
goto egress} 


QO 
ae) 
Ul 
a) 
we 
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57 egress: 
58 xclose(od)3 
59 return (rc)3 


Apr 30 
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/* 
* filename: HTONS.C 


ate 
a“ 


unsigned short 
xhtons(x) 
unsigned short x3 


return((unsigned short) ((x<<8)|((x>>8)&0xff)))5 


long 
xhtonl (x) 
long x3 
{ 
union { 
long 13 
struct { 
unsigned short s high, s_ low; 
} sls 
} oh; 
hel = x3 
h.sl.s high = xhtons(h.sl.s high); 
h.sl.s low = xhtons(h.sl.s low); 
return ( h.l )3 
} 
unsigned short 
xntohs(x) 
unsigned short x} 


{ 


return ( xhtons(x))3 


3 


long 
xntohl (x) 
long x3 
{ 
return( xhtons(x) )3 


} 
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#define PDP1l 


# 
# 
# 
# 
# 
# 
# 
# 


include <std.h> 
include <rsx.h> 
include <extypes.h> 
include <exiocmd.h> 
include <soioctl.h> 
include <socket.h> 
include <exqio.h> 
include <solibdef.h> 


extern unsigned short ex libinit 35 


extern int Libinit()3 
extern int libemt(); 

/* extern int check()3*/ 
extern int lLibcopy()3 


/* below is a definition of a structure for handling user specified 


AST function calls in the catchoob() library function call */ 


+#define USED 1 
#define FREE 0 


struct _asts{ 


short stast$ 
short xiobno3 
int (*userast)()3 


} 
struct seg addr 
Ushort base3 /* segment base address */ 
Ushort of f3 /* segment offset ; 
35 
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# i 
# i 
# i 
# i 


uns 
uns 


mle 
ry 


filename: LIBRTS.C 


nclude <std.h> 
nclude <rsx.h> 
nclude <extypes.h> 
nclude <solibdef.h> 


igned short ex libinit = 03 
igned short unibus = 03 /* if on a UNIBUS m/c */ 


below is a definition of a structure for handling user specified 
AST function calls in the catchoob() library function call %/ 


struct _asts{ 


s 
1 


} 


hort stast3 
nt (*userast)()3 


struct seg addr 


{ 


} 


Ushort base} /* segment base address */ 
Ushort of f3 /* segment offset %/ 


b 


int libinit() 
{ 
ex libinit = 13 


} 


int Libcopy(from,to,size) 
Uchar “from, *to3 
int size} 


while ( size-- ) 
*tot+ = *fromt+3 


Objective of this function is to process different type of error resulting 
from a call to the driver via QIO ( or emt call in 'C' ) call. A QIO 
executive directive call reports error in two different ways through the 

DSW ( directive status word ) and also in the IO statusblock. Again in the 


* IOSB it is divided into two parts one device specific and the other generic. 


The generic and the dsw are returned to the caller after shifting it by -512 
and the device specific code is just sign changed. If all is fine then an 
non zero value is returned. 


Libemt(cmd,iosb,pl,p2,p3,p4,p5, p6) 
Ushort cmd$ 

struct iosb “iosb$ 

Ushort pl, p2, p3, p4, p5, p63 
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int j = 0,dsw; 
register int cnt,i3 


register int count = 1024; /* 1 KB 
if(p2 <= 0){ 
cnt.= 13 
count = Q3 
} 
else 
cnt = p23 
for(i = 03 cnt > 03 itt) { 
if((cnt < count) || (!unibus)) 
count = cnt;5 
dsw = 


ate 
a 


emt(QIOW, cmd, SOLUN, SOEFN, iosb, 0, (pl + j),count, p3, p4, p5, p6)$ 
if((dsw >= 0) && (iosb->cc >= 0) && (iosb->lc == 0)) f{ 


if(p2 <= 0) 
return Q3 
cnt -= count; 
j += iosb->nread3 
continue}; /* continue on success */ 
else 
if(dsw < 0) 
return(dsw - 512); /* directive error */ 
else 
if(iosb->cc < 0) 
return(iosb->cc - 512)3 /* generic I/O error */ 
else 
return( - (iosb->lc & Oxff))3 /* device specific error */ 
} 
1osb->nread = j} /* total # of bytes transacted */ 
return 0} /* return success */ 
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1 

2° 4 

3 

4 System entry point for client programs running under RSX. 
5 Note: terminal => unbuffered io. 
6 */ 

7 #include <xgenlib.h> 

8 #include <xspecial.h> 

9 #include <xpwd.h> 

10 #include <fcs.h> 

11 

12 #define SY 054523 

13 


14 extern xttyread()3 
15 extern xttywrite() 
16 extern xttyclose() 
17 extern xnofunc()3 
18 extern xdread(); 
19 extern xdwrite()$ 
20 extern xdclose()3 


e 
9 
° 
? 


22 struct xiobuf xiob[ XNFILE] = {0}; 
23 struct passwd xpassword = {0}; 

24 struct passwd *pw = &xpassword; 

25 struct ttybuf ttybuf = {0}; 


26 int ttyinput = 0; /* 0 -- interactive . 1 -- non-interactive */ 
27 struct reb reb[_XNFILE] = {0}; 

28 char  luntb1[32] = {0}; /* array of 256 bits used to maintain LUN */ 
29 int brk = 03 /* USED by C_RTS ALLOC & FREE */ 

30 


31 extern char _xctypel ]; 
32 extern char *inprnf]; 


35 main( argc, argv ) 
36 int argc$3 
37 char **argv;3 


39 int i3 

40 register XFILE *file3 
41 char *D5 

42 int rval3 

43 int ioflag; 

44 int mod; 

45 int buf[16]; 

46 int maxlun; 


48 /* initialize xiob structure */ 
49 for(p=(char *) xiob; p < ( (char *) xiob + sizeof xiob); ) 


50 *ptt = '\O'S 

51 /* initialize rcb structre * / 
52 for( i=03 i < XNFILE 3 ++i ) 

53 _rcebli].flags = RFREE} 

54 /* 

55 ™* initailize terminal I/0 buffer 


56 / 
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57 

58 ttybuf.cur pos = ttybuf.linetty; 

59 ttybuf.tsize = 0; 

60 

61 for(i = 13 i < 53 itt) 

62 emt (ALUN, i, SY, 0)3 

63 emt(GTSK, buf )3 

64 brk = buf[13]; /* task size */ 
65 maxlun = buf[8]3 /* # of LUN used */ 


66 ppasc(pw->cur_uic, buf[7]); 
67 ppasc(pw->login uic,buf[15])3 


68 emt(GLUN,1,buf); /* get phy. device name */ 
69 xstrncpy(pw->log dev,buf,2)3 /* copy device name */ 

70 pw->log dev[2] = (*((char *) buf + 2)) + 0603 /* get unit # */ 
71 pw->Log devl[3] = '\0'; /* make it string */ 


72 xstrepy(pw->cur_dev,pw->log dev); 


74 while(maxlun) { 

75 if(emt(GLUN, maxlun,buf) > 0 ) 
76 assign(maxlun)} 

77 --maxlun; 


79 for( i= 0, file = xstdin 3 i < 3 $ ++i, ++file ) 


{ 
81 if(isatty(i)){ 
82 xttyopen(XFREAD|XFWRITE) 3 
} 


84 else { 

85 if(i == 0) 
86 mod = XFASCII | XFREAD3 
87 else 

88 mod 


= XFASCII | XFCREAT | XFWRITE; 
89 xdopen(inprnfi ] 


, mod, FILE NAME)3 


91 if( i==0 ) 

92 xodopen( i, “r" ); 

93 else { 

94 file-> flag |= XIOLBF3; 
95 file-> cnt = 03. 

96 xodopen( i , "w'' )3 


} 
99 xputchar('\n'); 
101 clientinit()3 


103 xmain(argc, argv)3 
104 xexit(0);3 
105 } 


107. /* 

108 * ISATTY: check object descriptor directs to terminal or not. 
109 if it is terminal returns 1 else 0. 

110 * 

lll */ 
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113 isatty(od) 

114 int od3 

115 { 

116 if( tinprmlod] ) 

117 { 

118 if( od == 0) 
119 _ttyinput = 1; 
120 return(1)3 
121 } 

122 else 

123 return(0)3 
124 

125 } 

126 

127 
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1 /* 
2 @(#)xmkarglist.c 1.3 3/29/85 
3 
4 */ 
5 #include <rsxos.h> 
6 
7 #define ARGPOINTERSP 200 /* bytes for storing argument pointers */ 
8 #define ARGSPACE 400 /* bytes for storing arguments */ 
9 
10 static char *“argbase = {0}; 
ll static char “stringbase = {0}3 
12 
13 
14 char ** 
15 xmkarglist( line, count ) 
16 
17 char *line3 /* IN */ 
18 int *count$ /* OUT */ 
19 { 
20 char **argp3 
21 char *slurpstring()$3 
22 char *argvsp} 
23° int marge; 
24 
25 marge = 03 
26 /* 
27 Allocate space for argv and tokens in line 
28 «*/ 
29 if( xstrlen( line ) > ARGSPACE ) 
30 
31 return( (char **)0 )3 
32 } 


33. argvysp = xmalloc( ARGPOINTERSP + ARGSPACE )3; 
34 if € argvsp == (char *)0 ) 


35 

36 return( (char **)0 )3 

37 

38 argbase = &argvsp[ ARGPOINTERSP ]; /* store from first of buffer */ 
39 stringbase = line; /* scan from first of buffer */ 


40 argp = (char **)argvsp;3 

41 while (*argp++ = slurpstring()) 
42 margctt; 

43 *count = margc}3 

44 return( (char **)argvsp )3 


45 } 

46 

47 /[* 

48 ™* Parse string into argbuf} 
49  * implemented with FSM to 
50 * handle quoting and strings 
51 */ 

52 char * 

53 slurpstring() 

54 

55 int got one = 03 


56 register char “sb = stringbase}3 
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Sl 


52 


$3 


register char “ap = argbase;3 


char *tmp = argbase;3 


Used to return '!' 
Ignore significance of '!'. 


*/ 
switch (*sb) { 


case '\O': 

goto OUT; 
case ' '3 
case '\t': 

sb++$ goto SQ; 


default: 
goto Sl; 
} 


switch (*sb) { 


case : 
case '\t': 
case '\0O': 
goto OUT; {* 
ease T\\"S 
sb++$3 goto $23; /* 
case Y's 
sb++3 goto $33 /* 
default: 
“aptt+ = *sbt+; /* 
got one = 13 
goto S13 
} 
switch (*sb) { 
case '\0': 
goto OUT; 
default: 
*vaptt — Ksbt+ 3 
got one = 1; 
goto S13 
} 


switch (*sb) { 


/* will return this if token found */ 


for shell event processing... 


end of token */ 


slurp next character */ 


slurp quoted string */ 


add character to token */ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 


OUT: 


} 


case '\O': 


goto OUT; 
case '"'; 
sb++ 3 goto S13 
default: 
*aptt+ = *gbt+$ 
got one = 1; 
goto $33 
} 
if (got _one) 
*apt+ = '\O'S 
argbase = ap} /* update 
stringbase = sb} /* update 


if (got_one) 
return(tmp)3 
return((char *)0); 


xdealglob( pt ) 
[* 


‘e/ 


char 


{ 


Free space allocated by either xglob or xmkarglist 


*EDE SG 


xfree( (char *)pt ); 


} 


storage pointer 
scan pointer */ 


ate 
7 
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1 # include <xgenlib.h> 

2 |{* 

3. * filename: MKCMD.C 

4 3 

5 mkcmd creates a MCR command line . It takes a pointer 
6 to the commandline and multiple pointers to string . 
7 

8 

9 char * 
10 mkcmd(line, str) 

ll char *Line3 

12 char “str3 
13 { 

14 char **argp = &str}3 
15 
16 *Line = '\O'; /* clear command line */ 

17 while( *argp) /* till a null argument */ 

18 xstrcat( line, *argp++ )3 

19 return(0)3 


20 } 
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fe 
* FILENAME: MKNAME.C 


* This routine updates the name according to default dev & dir. 
eS it must be invoked after parse. It takes the input from CSI 
* control block, which is created by parse routine. 


* QUTPUT: 

* If morg file spec it returns size of current file spec 
* else ‘ Q -- no more in-spec 

*/ 


#include <xpwd.h> 
#include <xgenlib.h> 


extern struct passwd “pw; 
extern char *csiblk3 


NR RH Re Re rR Re Re Re Pe 
SOvwomoanrnrvurPfPwnrdskr OOo OA DUH WHF 


mkname (name) 
char *“name3 
21 { 


22 int rval3; 

23 char devL6] ; 

24 char uic[10] ; 
25 char nam[15] ; 
26 int filelen = 03 


27 

28 dev[0] = '\0'; 

29 ~uiclO] = '\O's 

30 =naml0] = '\O's 

31 

32 xstrcepy(dev,pw->cur dev)} /* initialize default dev. */ 

33. xstrepy(uic,pw->cur_uic); /* initialize default dir. */ 

34 if(csiblk[C STAT] & CS DVF){ 

35 xbcopy(*(int *)(csiblk+C DEVD+2),dev,*(int *)(csiblk + C DEVD)); 
36 dev[*(int *)(csiblk + C DEVD ) ] = '\O'S 

37 filelen += *(int *)(csiblk + C DEVD) + 1; 

38 

39 if(csiblk[C STAT] & CS DIF){ 

40 xbeopy(*(int *)(csiblk+C DIRD+2),uic,*(int *)(csiblk + C DIRD)); 
41 uicl*(int *)(csiblk + C DIRD ) J] = '\O'$ 

42 filelen += *(int *)(csiblk + C DIRD ); 

43 . 

44  if(csiblk[C STAT] & CS NMF){ 

45 xbecopy(*(int *)(csiblk+C FILD+2),nam,*(int *)(csiblk + C FILD)); 
46 : nam[*(int *)(csiblk + C FILD ) ] = '\0'S 

47 filelen += *(int *)(csiblk + C FILD ); 

48  } 


49 mkcmd(name,dev,":",uic,nam,0)$; 


50 if (csiblk[C STAT] & CS_MOR) 


51 rval = filelen3 
52 else 
53 rval 03 


54 return(rval)3 
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Won Au & Wh 


/* 
* filename: MUXIO.C 
* / 


#include <rsxos.h> 


.#include <xstdio.h> 


#include <xspecial .h> 
#include <solibdef .h> 


#define IO XFR 003400 
#define IX RDS 0000 
#define TTYEFN 2 
#define SLEEP EFN 3 


#define strip(x) ((x) & 0177) 
short readyl = 13 /* rodl is readable * / 
short ready2 = 03 /* rod2 is initially not readable */ 
struct iosb { 

char cc3 

char 1c}3 

int nread3 

$3 
struct iosb isbl = {0}; /* IO status block for netread */ 
struct iosb isb2 = {0}; /* IO status block for netwrite */ 
int rod2 = 0; 
static char sibuf[XBUFSIZ] = {0}; 
static char tibuf[XBUFSIZ] = {0}; 


extern int ttyraw : /* 1 == raw O == line edit ‘| 
extern char escape 
static int scc = 


= 0 /* byte count for net read */ 
static int tcc = 0 


/* byte count for tty read */ 


we we we 


‘char * tbufp = tibuf; 


extern mynetread()3 
extern myttyread()3 
extern xsoioctl(); 
extern int xttyread(); 
extern astrd2(); 
extern int wrap} 
extern int ttylun; 


xmux 10( serv id, io procl, rodl, wodl, io proc2, rod2, wod2 ) 


char *serv_id$ /* service identifier, see getclient(3xX) */ 
int (*io procl)(); /* Network to terminal process */ 

int rodl3 /* descriptor for first process to read */ 
int wodl; /* descriptor for first process to write */ 
int (*io proc2)(); /* Terminal to network process */ 

int rod2$3 /* descriptor for second process to read */ 
int wod2$ /* descriptor for second process to write */ 
{ 


short last read = 1; /* last descriptor read */ 
short netrfin = 13 /* initialize - net read has finished 
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int pidl; /* dummy process id - not used */ 
int pid23 /* dummy process id - not used */ 
_rod2 = rod23 
_xiob[rod1]. read = mynetread; 
_xiob[rod1]. ioctl = xsoioctl; 
emt (CLEF, SLEEP EFN) 
emt (QIOW,10 ATA,ttylun,TTYEFN,0,0,astrd2,0,0,0,0,0); 
for( 33 ) { 
_xiob[rod2]. read = myttyread; 
if (readyl) 
if(netrfin) { 
rdl(rod1)3 /* do a net read */ 
netrfin = 03 /* netread is pending */ 
} 
if(( readyl && ready2 && (last read == 2)) || 
(readyl && !ready2 )) 
(*io procl)(pid2,rodl,wod1)3; 
last read = 1} 
netrfin = 13 /* net read has finished */ 


else if(ready2) 


emt (DSAR) ; 

(*io proc2)(pidl,rod2,wod2) 35 
last read = 23 

ready2 = 03 

_tbufp = tibuf; 

tcc = 05 

emt (ENAR) ; 

} 


emt(STSE, SLEEP EFN); 
emt(CLEF, SLEEP EFN)} 


/* make rodl non-readable */ 


_xsoread(rodl, sibuf,sizeof sibuf); 


else { 
} 
} 
} 
/ Ye 
* RD1 
rdl(rodl) 
int rodl3 
{ 
readyl = 03 
} 
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113 * MYNETREAD 
114 */ 

115 

116 mynetread(s,buf,len) 
117 int s3 


118 char *buf3$ 

119 int len; 

120 { 

121 if(sec > 0) 

122 xbcopy( sibuf,buf,scc); 
123 return(scc)3 

124 } 

125 

126 /* 

127 * MYTTYREAD 

128 = */ 

129 

130 myttyread(sys id,buf,len) 
131 char *sys id}; 

132 char *buf$ 

133 int len; 


134 

135 char c = tibuf[0]; 

136 int cnt$ 

137 

138 /*emt (DSAR) 3 disable ast recognition */ 
139 /* if first char is an escape then do normal read */ 
140 if(strip(c) == escape) 

141 _xiobl rod2]. read = xttyread; 
142 if((ent=tcc) > 0) 

143 xbcopy( tibuf,buf,tcc); 

144 

145 [* 

146 _tbufp = tibuf; 

147 tcc = 03 

148 emt (ENAR) $ 

149 % / 

150 return(cnt)3 

1) 

152 

153. extern astrdl()3 

154 


155 _xsoread( s, buf, len) 

156 int $3 

157 char *buf$ 

158 int len; 

159 { 

160 int rae 

161 

162 i = (int ) xiobls]. sys id; 

163 emt (DSCP) 3; /* disable checkpointing */ 
164 emt(QIO,IO XFR|IX RDS,SOLUN,0,&isbl,astrdl,buf,len,0,0,0,i)3 
165 } 

166 

167 /* 

168 * NRSTATUS -- called from the ast service routine astrdl to set the 
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169 * return status of the read issued to the network. 
170 */ 

171 

172 nrstat(iosb) 

173 struct iosb *“iosb}3 


174 { 

175 

176 if((iosb->cc >= (unsigned char )0) && (iosb->lc == (unsigned char )0)) 
177 scc = iosb->nread; 

178 else if(iosb->cc < (unsigned char )0) 

179 sce = iosb->cc - 5123 /* generic I/O error */ 
180 else 

181 sec = (-(iosb->lc & OxFF))$ /* device specefic error*/ 
182 

183 readyl = 1; /* rodl is now ready to read */ 

184 emt (ENCP); /* enable checkpointing */ 

185 emt(SETF, SLEEP EFN)$ 

186 } 

187 

188 

189 /* 

190 _* XKILL -- waits for any outstaning I/O on the network 

191 */ 

192 


193 xkill(pid) 

194 int pid; 

195 { 

196 char stadd[2]; 

197 

198 emt (QIOW,10 DET, ttylun,TTYEFN,0,0,0,0,0, 
199 emt (QIOW, 10 KIL,ttylun,TTYEFN,0,0,0,0,0, 
200 if(wrap) { /* previously in wrap mo 
201 stadd[0] = TC ACR; 

202 stadd(1] = 13 

203 emt (QIOW,SF SMC,ttylun,TTYEFN,0,0,stadd,2,0,0,0,0)3 

204 } . 

205 

206 xexit(0); 

207 } 

208 /* 

209. * _xsoioctl -- kill any outstanding I/o on the network and 

210 * then call actual xsoioctl function. 

211 = */ 

212 

213 _xsoioctl(net,cmd,arg) 

214 int net; 

215 int cmd; 

216 int arg; 

217 

218 emt (ENAR) $ /* enable ast recoginition */ 

219 /* emt (QIOW,IO KIL,SOLUN,SOEFN,0,0,0,0,0,0,0,0); */ 

220 xsoioctl(net,cmd,arg); 

224° 

222 /* 

223. * 

224 * TRSTAT ~-- get a character from ast stack and put it into the tibuf 


0 
0 
d et it accordingly */ 


ow iw 
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We i 

trstat(c) 

char c$3 

{ 
* tbufpt+ = c} 
tectt; 
ready2 = 13 


emt(SETF, SLEEP EFN)3; 
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/[* 
@(#)passthru.c 1.3 3/29/85 


Xpasstnet(3X) and xpassfnet(3X) for Rsx. 
* / 


#include <rsxos.h> 
#include <xstdio.h> 
#include <xerrno.h> 
#include <ftp.h> 

10 #include <extypes.h> 

ll #include <fcs.h> 

12 #define HASHSIZE 1024 
13 extern int type} 

14 extern int hash3 

15 extern struct rcb _rebl]; 
16 extern long xpass(); 

17 extern int dread(); 

18 extern int dwrite(); 

19 extern int soread(); 

20 extern int sowrite(); 


WN DU Wh be 


21 

22 #define CNTRLZ 0366 

23 

24 extern struct dblbuf hbuf 3 
25 extern struct dblbuf nbuf ; 
26 long 

27 xpasstnet( inod, outod ) 

28 


29 register XFILE “inod3 /* input EXOS io object */ 
30 register XFILE *outod; /* output EXOS io object */ 


31 

32 long bytes} 

33 int rval3 

34 register struct rcb *insys = ( struct rcb * )inod-> sys id; 
35 /* make od's as double buffer */ 

36 

37 hbuf.buffer[1] = inod-> base; 

38 inod-> base = outod-> base}; 

39 nbuf.buffer[0] = outod-> base; 

40 if( (rval = xmalloc(XBUFSIZ)) == XNULL ) { 

41 /* 

42 xoprintf(xstdout,"passtnet buffer pointer = %d\n",rval)3 
43 */ 

44 return (long) XENOMEM; 

45 

46 nbuf.buffer[1] = (char *) rval3 

47 outod-> write = sowrite;3 

48 nbuf.stat[1] = 13 /* initialize write status */ 
49 hbuf.active = 13 

50 nbuf.active = 03 

51 insys->bptr = insys->bnptr = hbuf.buffer[1]; 

52 insys->bleft = 03 

53 insys->flags |= DBLBUF3 

54 hbuf.fd = inod3 

55 nbuf.fd = outod; 


56 bytes = xpass( inod, outod )3 


May 19 16:54 1986 passthru.c Page 2 


inod-> base = hbuf.buffer[ !hbuf.active]; 

outod-> base =nbuf.buffer[!nbuf.active]; 
insys->flags &= ~DBLBUF$ 

emt (WISE, SOEFN) 3 

/ ¥ 

xprint£(" No. of socket i/o wait %d\n",socket efn)3 
xprintf(" No. of disk i/o wait %d\n",disk efn)3 
%* / 

xfree(nbuf.buffer[nbuf.active])3 

return bytes; 


xpassfnet( inod, outod ) 


register XFILE *inod; /* input EXOS io object */ 
register XFILE *outod; /* output EXOS io object */ 


long bytes; 

int rval3 

register struct rcb *outsys = ( struct rcb * ) outod-> sys id} 
/* make od's as double buffer */ 


hbuf.buffer[1] = outod-> base; 
outod-> base = inod-> base} 
nbuf.buffer[0] = inod-> base; 


if( (rval = xmalloc(XBUFSIZ)) == XNULL ) { 
/* 


xoprintf(xstdout,"passfnet buffer pointer = %d\n",rval)3; 


* / 

return (long) XENOMEM; /* No memory */ 

} 
nbuf.buffer[1] = (char *) rval; 
inod-> read = soread}3 
nbuf.stat[0] = xsoread(inod-> sys id,inod-> base, XBUFSIZ)3 
hbuf.stat[1] = 13 /* initialize write status */ 
inod-> base = nbuf.buffer[1]3 


nbuf.active = 13 
hbuf.active = 03 

outsys->flags |= DBLBUF$ 

hbuf .fd outod$ 

nbuf.fd inod3 

bytes = xpass( inod, outod )3 

outod-> base hbuf.buffer[ !hbuf.active]; 

inod-> base nbuf .buffer[ !nbuf.active]; 
outsys—->flags &= ~DBLBUF; 

emt (WISE, DISKEFN) 3 

/ ve 

xprintf£(" No. of socket i/o wait %d\n",socket efn)$ 
xprintf£(" No. of disk i/o wait Z%d\n",disk efn); 

* / 

xfree(nbuf.buffer[nbuf.active])3 

return bytes} 
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113 

114 long 

115 _xpass( inod, outod ) 

116 register XFILE *inod; /* input EXOS io object */ 
117 register XFILE *outod; /* output EXOS io object */ 
118 

119 int c3 

120 int d = 03 

121 long bytes = (long )03 

122 long hashbytes = XBUFSIZ}3 


123 

124 emt (SETF, SOEFN); /* No pending i/o on socket */ 
125 emt(SETF, DISKEFN)3 /* No pending i/o on disk */ 
126 while ((c = xread(xfileno(inod), inod-> base, XBUFSIZ)) > 0) { 
127 if ((d = xwrite(xfileno(outod), outod-> base, c)) < 0) 
128 break3 

129 bytes += c$3 

130 if (hash) { 

131 xputchar('#')3 

132 xfflush(xstdout)$ 

133 } 

134 

135 if (hash) { 

136 xputchar('\n'); 

137 xfflush(xstdout)3 

138 } 

139 if (c < 0) { 

140 xperror( c, "on input"); 

141 return( (long)c )$3 

142 } 

143 if (d < 0) { 

144 /* 

145 Throw any data remaining in pipe 

146 */ 

147 while 

148 ((c=xread(xfileno(inod),inod-> base,XBUFSIZ)) > 0) 
149 ; 

150 xperror( d, "on output")$; 

151 return( (long)d )3; 

152 } 

153 return bytes; 

154 

55. + 

156 


157 dread(sysid, buf,size) 
158 register struct rcb *sysid; 
159 char *buf 3 


160 int size$3 

161 { 

162 

163 if( size < 0 ) 

164 return -1l3 /* error */ 
165 if( sysid->flags & REOF ) 

166 return 03 /* eof */ 
167 if( type == TYPE A ) 


168 return ( getnet(sysid,buf,size) )$3 
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169 else 

170 return ( bread(sysid,buf,size) )$ 
171 } 

172 

173 getnet(sysid,buf,size) 

174 register struct rcb *“sysid3 

175 char *buf3 7 


176 register int size$ 

177 { 

178 register int count = 03 

179 int rval; 

180 while(size--) { 

181 if( !(sysid->flags & REOLN )) { 

182 if( !sysid->bleft && ((rval = getblk(sysid)) < 0) ) 
183 return count ? count : rval3 
184 if( sysid->rec.rleft <= 0 && ((rval = endrec(sysid)) < 0) ) 
185 return count ? count : rval3 
186 if( sysid->flags & REOF ) { /* EOF */ 
187 *buft+ = '\r'3 

188 *buf = '\n's 

189 return countt23 

190 } 

191 

192 if(sysid->flags & REOLN) { 

193 if(sysid->flags & RCRFLAG) { 

194 *buf++ = '\r'3 

195 sysid->flags &= ~RCRFLAG} 
196 } 

197 else { 

198 *buft+ = '\n'; 

199 sysid->flags &= ~REOLN; 

200 

201 

202 else if( sysid->rec.rleft ) { 

203 *buft+ = *sysid->bnptrt+}$ 

204 -~-sysid->bleft$ 

205 --sysid->rec.rleft3 

206 

207 else { /* case of zero records */ 
208 ++51ze3 

209 continue} 

210 } 

211 ++count 5 

212 } /* end of while */ 

213 

214 return count$ 

215 } 

216 


217 bread(sysid) 
218 register struct rcb *sysid; 


219 { 

220 

221 int *p3 
222 int *q3 
223 int rval;3 


224 
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225 rval = getblk(sysid); 

226 p = hbuf.buffer[hbuf.active]; 

227 q = nbuf.buffer[nbuf.active]; 

228 hbuf.buffer[hbuf.active] = q3 

229 sysid->bptr = sysid->bnptr = q3 

230 nbuf.buffer[nbuf.active] = p; 

231 hbuf.fd-> base = nbuf.fd-> base = p3 
232 return rval3 

233 } 

234 


235 dwrite(sysid,buf,size) 
236 register struct rcb *sysid3; 
237 char *buf 5 


238 int size3 

239 { 

240 if( size < 0) 

241 return -1l3 /* error * 
242 if( type == TYPE A ) 

243 return ( put(sysid,buf,size) ); 
244 else 

245 return ( bwrite(sysid,buf,size) )3 
246 } 

247 

248 


249 bwrite(sysid,buf,size) 

250 register struct rcb *sysid}3 
251 char *buf 3 

252 int size} 


253 

254 

255 int *p$ 

256 int *q3 

257 

258 p = hbuf.bufferlhbuf.active]3 
259 q = nbuf.buffer[nbuf.active]; 
260 . hbuf.buffer[hbuf.active] = q3 
261 . sysid->bptr = sysid->bnptr = q3 
(262 sysid->bleft = BLKSIZE - size; 
263 nbuf.buffer[nbuf.active] = p3 
264 _nbuf.fd-> base = hbuf.fd-> base = p; 
265 . 

266 if ( size < BLKSIZE ) 

267 return 13 

268 return putblk(sysid)3 

269 } 

270 _soread(s,buf,len) 

271 int $3 

272 char *buf 3 

273 int len; 

274 { 

275 return ( sio(s,buf,len,I1O XFR|IX RDS) )3 
276 } 

277 

278 _sowrite(s,buf,len) 

279 int S$ 


280 char *buf $ 
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281 int len; 

282 { 

283 return ( sio(s,buf,len,IO XFR|IX WRS) )3 

284 } 7 i 

285 

286 extern int astsio()3 

287 

288 sio(s,buf,len,iocode) 

289 int 83 

290 char “*buf}3 

291 int len3 

292° int iocode3 

293 { 

294 static struct iosb ios = {0}3 

295 int rval$ 

296 char “*pbuf3 

297 int ret3 

298 

299 

300 

301 [* 

302 socket efn += s efn(); 

303 we / 

304 emt (WISE, SOEFN); /* stop for i/o completion */ 
305 rval = nbuf.stat[!nbuf.active]; /* # of bytes read */ 

306 if( (rval > 0) && (rval < len) && ( type != TYPE A) && 
307 (iocode == ( IO XFR | IX RDS )) 

308 ) 

309 { /* Previous buffer is not yet completly read. 

310 Since in the binary mode, buffer's are flipped 
311 instead of data transfer. We need to read buffer 
312 fully ( disk block = 512 bytes ). 

313 * / 

314 

315 pbuf = nbuf.buffer[!nbuf.active]; 

316 

317 while (rval < len) { 

318 if(Libemt (iocode,&ios, pbuf+rval,len-rval,0,0,0,s)) 
319 break} /* I/O error */ 

320 if(!(ret = ios.nread)) 

321 break; /* EOF */ 

322 rval += ret; 

323 } /* repeat loop, buffer is not yet read fully */ 
324 nbuf.stat[!nbuf.active] = rval; /* # of bytes read */ 
325 } 

326 /* 

327 * flip the buffer 

328 */ 

329 nbuf.stat[nbuf.active] = 03 

330 nbuf.active = !nbuf.active3 

331 nbuf.fd-> base = nbuf.buffer[nbuf.active]3 

332 hbuf.fd-> base = nbuf.fd-> base; 

333 if( rval > 0) { 7 

334 emt (CLEF , SOEFN) $ 

335 emt (QIO,iocode,SOLUN,0,&ios,astsio,buf,len,0,0,0,s)3 


336 } 
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337 return rval; 
338 

339} 

340 
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Oo on DU WH Fe 


#incLlude 
#incLlude 
#include 
#include 
#include 


extern c 


<rsxos.h> 
<xstdio.h> 
<xspecial.h> 
<xerrno.h> 
<Libsock.h> 


har *xstrchr()3 


extern char *firstwhite();3 
extern char *lastwhite();3 


extern c 
char * 
xraddr(d 


{ 


top: 


har *skipwhite(); 


esaddr) 
long desaddr}3 


int od; 

XFILE *op 3 

char hbuf[XBUFSIZ], *cp, *host3 
int first = l; 


od = xdopen( HOSTS, XFREAD|XFASCII, FILE NAME } 
if ( ( od < 0 ) |[{ !€ op = xodopen ( od, "r''))){ 
xperror(XEBADF, "raddr: ")3 
xexit(1)s3 


3 


while (xogets(hbuf, sizeof (hbuf), op) && xstrchr(hbuf, '\n')) { 
Long addr,rnumber()3 


*xstrchr(hbuf, '\n') = 03 

if (hbuf[0] == '#') 
continue3 

if ((addr = rnumber(hbuf)) == -1) 
continue3 

if (addr != desaddr) 
continue3 

host = firstwhite(hbuf, ' ') + 13 

host = skipwhite(host)3 

cp = firstwhite(host, ' '); 

if (cp) 
*ep = 0 : 

cp = xmalloc(xstrlen(host)+1)3 

xstrcepy(cp, host); 

xclose( od )$3 

return (cp); 

} 
if (first == 1) { 

first = 03 

xclose(od)3 

if (((od =xdopen(HOSTSLOCAL, XFREAD|XFASCII,FILE NAME))>= 0) 

&& ( op = xodopen( od, "r''))) 

goto top; 

else{ 

xperror( XEBADF ,"raddr:"); 
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57 xexit( 1 )3 
58 } 

59 return (0)3 
60 } 

61 bad: 

62 xclose(od)3 

63 return (0)3 
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1 

2 |[* 

3 * filename: RECEIVE.C 
4 %] 

5 

6 #include <xstdio.h> 
7 #include <xerrno.h> 
8 #include "Libhdr.c" 
9 
10 
ll static 


12 int receive (s,from,buf,len) 
13 int s$ 

14 struct sockaddr *from; 

15 char *bu€ 5 


16 int len; 

17 { 

18 int ret,i3 

19 struct SOictl SOictl}3 

20 struct iosb iosb3 

21 

22 if (from) { 

23 SOictl . hassa = 13 

24 Libcopy(from,&SOictl.sa,sizeof(struct sockaddr) ); 
25 


26 else SOictl . hassa = 03 
27 ret = Libemt(IO XFR|IX RCV, &iosb, buf, len, &SOictl, 0, 0, s)3 


28 

29 if ( ret == 0) 

30 ret = 10sb . nread; 

31 return ( ret )3 

32 } 

33 

34 

35 xreceive(s, from, msg, len) 
36 

37 int s3 


38 struct sockaddr *from;3 
39 char “msg; 
40 int len; 


41 { 

42 register XFILE *file; 

43 

44 if( s <0 || s >= XNFILE ) 

45 return( XEBADF ); 

46 file = & xiobls]; 

47 if( !( file-> flag & XUsed )) 

48 return( XEBADF ); 

49 return( receive( (int)file-> sys id, from, msg, len ))$ 
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COn nO OOD ee 


#include <rsxos.h> 
#include <xstdio.h> 
#include <xctype.h> 
#include <xerrno.h> 
#include <xspecial.h> 
#include <lLibsock.h> 


extern 
extern 
extern 
extern 
static 


long 


long 


char *xstrchr(), *xstrrchr()3 
char *firstwhite()3 

char *Lastwhite()3 

char *skipwhite(); 

char host name[40] = {0}; 


rnumber()3 


xrhost(ahost) 


top; 


char **ahost}3 


int od3 

XFILE *“op3 

char hbuf[XBUFSIZ], *cp3 
int first = 13 

long addr; 


if (isdigit(**ahost) && (addr = rnumber(*ahost)) != -1) { 
xoprintf(xstderr, "addr=%x\n", addr); 
return (addr)3 
} 
od = xdopen( HOSTS, XFREAD|XFASCII, FILE NAME); 
( ( od < O ) {| !€ op = xodopen( od, "r'))){ 
xperror( XEBADF ,"rhost:"); 
xexit( 1 )3 


3 


while (xogets(hbuf, sizeof (hbuf), op)) { 
*xstrchr(hbuf, '\n') = 03 


d 
f 


i 


if (hbuf[0] == '#') 
continue} 
for (33) { 
cp = lastwhite(hbuf, ' '); 
if (cp == XNULL) 
break} 
if (!xstricmp(cp+l, *ahost)) { 
if ((addr = rnumber(hbuf)) == -1) 
goto bad3 
xclose(od)3 
*ahost = firstwhite(hbuf, ' ') + 1; 
*ahost = skipwhite( “ahost )3 
cp = firstwhite(*ahost, ' '); 
if (cp) 
*cp — 03 


xstrcpy(host name, *ahost)$ 
*ahost = host name; 
return (addr)3 
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57 } 

58 *ep = 03 

59 } 

60 } 

61 if (first == 1) { 

62 first = 03 

63 xcLlose(od)3 

64 od = xdopen(HOSTSLOCAL, XFREAD|XFASCII, FILE NAME); 
65 if ( ( od >= 0 ) && ( op = xodopen ( od, "r'')) ) 
66 goto top; 

67 else{ 

68 xperror( XEBADF ,"rhost:"')3; 
69 xexit( 1 )3 

70 

71 return (-1)3 

72 } 

73 ~bad: 

74 xclose(od)3 

75 return (-1)3 

76} 

77 

78 Long 

79 rnumber(cp) 

80 register char *cp3 

81 { 

82 register long val; 

83 register int base; 

84 register char c3 

85 long parts = 03 

86 char *“pplow = (char *)&parts$3 

87 char *pplim = pplowt4;3 

88 char *pp = pplow3 

89 long net, imp, hoi; 

90 

91 if (xstrchr(cp, '/') == 0) 

92 goto again; 

93 hoi = xatoi(cp)3 

94 if (xstrchr(cp, ',')) { 

95 imp = xatoi(xstrchr(cp, '/') + 1); 
96 net = xatoi(xstrchr(cp, ',') + 1)3 
97 hoi = xntohs((short)hoi)3 

98 val = (net<<24) | (hoi<<8) |imp; 
99 t else { 

100 net = xatoi(xstrchr(cp, '/') + 1); 
101 val = (net<<24)|hoi3 

102 } 

103 [* 

104 val = xhtonl(val)3 

105 %/ 

106 return (val)3 

107 

108 agains 

109 val = 03 base = 103 

110 if (*cp == '0') 

111 base = 8, cptt; 

112 if (*cp == 'x' || *cp == 'X') 
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113 base = 16, cptt3 

114 while (c = *cp) { 

115 if (isdigit(c)) { 

116 val = (val * base) + (c - '0')3 
117 cptt; 

118 continue}3 

119 

120 if (base == 16 && isxdigit(c)) { 

121 val = (val << 4) + (c + 10 - (islower(c) 
122 cpt+; 

123 continue}3 

124 } 

125 break} 

126 

127 if (*cp = 
128 /* 
129 * Internet format: 

130 * net.host.lh.imp 

131 */ 

132 if (pp >= pplim) 

133 return (-1)3 

134 *ppt+ = val, cptt; 

135 goto again; 

136 } 

137 if (*cp) { 

138 [* 

139 if (*cp == 'n') return (xhtonl(val)); 
140 */ 

141 if (*cp == 'n') return (val); 

142 if ( (*cp != '' ') && (*cp != '\t')) return (-1); 
143 } 

144 if (pp >= pplim) 

145 return (-1);3 

146 *ppt+ = val; 

147 /* 

148 return xhtonl(parts)3 

149 %/ 

150 return (parts)$; 

151 } 

152 

153. char * 

154 skipwhite( cpt ) 

155 

156 char *cpt3 

157 { 

158 

159 while( cpt && ( *cpt == ' ' [| *cpt == '\t' )) 
160 ++cpt;3 

161 return ( cpt )} 

162 } 

163 

164 

165 char * 

166 firstwhite( cpt, ch ) 

167. /* 

168 find first white space 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 


21:33 


ste / 
a 


char 
char 


{ 


5 


char 
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*ept $ 
ch3 


while( cpt && *cpt && *cpt != ' 
++cpt3 

if ( cpt && *cpt ) { 
return( cpt )3 


return ( XNULL )3 


ate 
at 


lastwhite( cpt, ch ) 


/ ate 
" 


last white space 


te 


“cpt; 
ch3 


*ocpt = XNULL; 


while( ( cpt = firstwhite( cpt, 
ocpt = cpt; 
cpttt; 

} 


return( ocpt )$ 


' && *ept != "\t' ) 


' 


) ) t= XNULL ) { 
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1 

2 |[* 

3 * filename: SEND.C 

4 */ 

5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "Libhdr.c" 

9 

10 int send (s,to,msg,len) 
ll int s}3 

12 struct sockaddr *to$3 
13 char *Msg $ 

14 int len; 

yt 

16 int ret,i3 

17 struct iosb iosb3 

18 struct SOictl SOictl3 
19 
20 if ( to ) { 
21 SOictl . hassa = 13 
22 Libcopy(to,&SOictl.sa,sizeof (struct sockaddr))3; 
23 
24 else SOictl.hassa = 03 
25 ret = Libemt(IO XFR|IX SND, &iosb, msg, len, &SOictl, 0, 0, s)3 
26 

27 if ( ret == 0 ) 

28 ret = iosb . nread3 
29 return (ret)$ 

30} 

31 
32 

33 xsend(s, to, msg, len) 
34 
35 int s3 


36 «struct sockaddr *to;3 
37 char *msg;3 
38 int len3 


39 { 

40 register XFILE *file;3 

41 

42 if( s <0 || s >= XNFILE ) 

43 return( XEBADF )3; 

44 file = & xiobls]; 

45 if( !(file-> flag & XUsed )) 

46 return( XEBADF )3 

47 return( send( (int)file-> sys id, to, msg, len ))3 
48 } 
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~~ 
- BS 


* filename: SOCKADDR.C 
¥* / 


#include <xstdio.h> 
#include <xerrno.h> 
#include "Libhdr.c" 


int xsktaddr(s,addr) 
int s$ 
struct sockaddr “addr3 


register XFILE “file; 
int ret3 
struct SOictl SOictl3 
struct iosb iosb3 


if( s <0 || s >= XNFILE ) 
return( XEBADF ); 
file = & xiobls]; 
if( !(file-> flag & XUsed )) 
return( XEBADF ); 
if ( addr ){ 
SOictl . hassa = 13 
Libcopy(addr,&SOictl.sa,sizeof(struct sockaddr) ); 


else SOictl . hassa = 03 
ret = Libemt(IO ACS|SA SAD,&iosb,0,0,&SOictl,0,0, (int) file-> sys id); 


if ( ret >= 0) 
libcopy(&SOictl.sa, addr, sizeof ( struct sockaddr ))3 
return ( ret ); 
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socket.c 


ate 
a 


ate 
a 


ale 
n 


filename: SOCKET 


#include <xstdio.h> 
#include <Libhdr.c> 


extern xsoread()3 
extern xsowrite()3 
extern xsoioctl()3 
static 
int socket( type, 
int type3 
struct sockproto 
struct sockaddr 
int options$ 
{ 
int ret3 
struct iosb io 
struct SOictl 


if ( addr ){ 
SOictl. hass 
Libcopy( add 


else SOictl. h 

bE pet 
SOictl. hass 
Libcopy( pf, 
} 


else SOictl.ha 
SOictl . type 
SOictl . optio 


ret= Libemt(IO ACS|SA OPN,&iosb,0,0,&SOict1,0,0,0); 


if ( ret == 0 
ret = 1osb.n 
return ( ret ) 


int xsoclose( s ) 
int s} 


int ret$ 
struct iosb ios 


ret = Libemt( 


if ((€ iosb.cc ) && ( iosb.lc == 0 ) ) 


ret = 13 
else ret = -l 
return ( ret 


Page l 


°C 


pf, addr, options) 


*pt ; 


*“addr 3 


sb3 
SOictl; 


a= 13 


r, &SOictl.sa, sizeof ( struct sockaddr ))3 


assa = 03 

p=i3 

&SOictl.sp, sizeof ( 
ssp = 03 


= type 
ns = options; 


) 


read3 


° 
9 


b3 


IO ACS|SA CLS, &iosb, 0, 0, 0, 0, 0, s)3 


9 


)5 


struct sockproto ))3 
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xsocket( type, pf, addr, options ) 
int type3 
struct sockproto “pf 3} 
struct sockaddr *addr3$ 
int options} 


int rval; 
int exosfd; 
register XFILE *file; 


rval = socket( type, pf, addr, options );3 


if( rval < 0 ) 

return( rval )3 
exosfd = xnewod()3 
if( exosfd < 0 ) 

return( exosfd )3 

file = & xioblexosfd]; 
file-> flag |= XIORW | XPrimary ; 
file-> sys id = (char *)rval}; 
file-> read = xsoread; 
file-> write = xsowrite} 
file-> ioctl = xsoioctl}; 
file-> close = xsoclose; 
return( exosfd )3 


/* get a free file descriptor 


ates / 
ao 
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1 

2 /* 

3 * filename: SOCONTROL.C 

4 * / 

5 

6 #include "Libhdr.c" 

7 

8 int xsoioctl( dev, cmd, addr) 

9 int dev, cmd; 

10 char “addr; 

11 { 

12 int ret$ 

13 struct iosb iosb3 

14 struct SOictl SOict13 

15 Uchar CMD = (Uchar) cmd; 

16 

17 libcopy( addr, (char *)&SOictl.hassa, sizeof ( struct SOictl))3 
18 ret = Libemt(IO SOC|CMD, &iosb, 0, 0, &SOictl, 0, 0, dev); 
19 switch ( cmd ){ 
20 case SIOCRCVOOB : 
21 “addr = *(char *)&SOictl.hassa}3 
22 breaks 
23 case SIOCGLINGER : 
24 case SIOCGKEEP : 
25 case SIOCATMARK : 
26 case SIOCGPGRP : 
27 *(short *)addr = SOictl.hassa}3 
28 break; 
29 default : 
30 break; 
31 } 
32 return ( ret )3 

33 } 
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1 

2 |* 

3 * filename: xsoread.c 

4 &/ 

5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "Libhdr.c" 

9 
10 
11 int xsoread( s, buf, len) 
12 int s3 

13 char *buf3 

14 int len}; 

15 { 

16 int ret, i$ 

17 struct iosb iosb3 

18 

19 ret = libemt(IO XFR|IX RDS, &iosb, buf, len, 0, 0, 0, 
20 if (ret==0) 
21 ret = iosb.. nread;3 
22 return(ret)3 
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1 

2 |[* 

3 * filename: XSOWRITE.C 

4 */ 

5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "libhdr.c" 

9 

10 

ll int xsowrite ( s, msg, len ) 
12 int s3 

13 char *“msg3 

14 int len; 

15 

16 int ret, i$ 

17 struct iosb iosb$3 

18 

19 ret = Libemt(IO XFR|IX_WRS, &iosb, msg, len, 0, 0, 0, s)3 
20 if ( ret==0 ) 

21 ret = iosb . nread3 
22 return(ret)3 


23 } 
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/ ¥ 
@(#)xaccess.c 1.4 3/29/85 


RSX version of routine to check access rights. 


#include <xspecial.h> 
#include <xerrno.h> 


xaccess( name, special, mode ) 


char name} 
int special; 
int mode3 


register int rval; 
char buf{ MXNAMELEN + 1 ]; 


[* 
modify name (if necessary) for special meanings 
*/ 
rval = xmodname( &name, special, buf, sizeof( buf ) )3 
if ( rval < 0 ) . 
return( rval )3 
if( mode == 0x0 ) 
{ 
/* check file exist or not */ 
rval = xdopen(name,XFREAD,FILE NAME); 
if(rval >= 0){ /* check for success */ 
xclose(rval)3 
rval = 03 


i 
else { 
/* fail to open , ie file does not exist * 
rval = rval -512; 
} 
} 


else { 
/* rval = access(name,mode)} 
66 be implement 
PONG used by FTP 

ae = XSYSERR3 


return( rval )3 


j 
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/* 
FILE NAMES: XCHDIR.C 
%/ ~ 


#include <xgenlib.h> 
#include <xspecial.h> 
#include <xpwd.h> 
#include <xerrno.h> 


COoOn aw fwd 


ll #define EXEFN 010001 


13. extern long radix(); 


14 extern struct passwd *pw3 

15 extern char *“csiblk3 

16 xchdir(name, special) 

17 char *name;3 /* name of uic to be modified */ 
18 int special; /* flag for special files */ 
19 { 

20 

21 char *“uic3 

22 int rval = 0; 

23 

24 switch ( special ) { 

25 

26 case FILE NAME: 

27 uic = name$3 

28 break$ 

29 case CURRENT DIR: 

30 return(0)3 

31 

32 case HOME DIR: 

33 xstrcpy(pw->cur_dev,pw->log dev); 

34 xstrepy(pw->cur_uic,pw->Llogin uic); 

35 return(0)3 

36 

37 default: 

38 

39 return(XEINVAL)3 

40 

4] } 

42 rval = parse(uic,xstrlen(uic))3 

43 if (rval<0) 

44 return(XENOTDIR)3 

45 if(csiblLk[C STAT] & CS_NMF) 

46 return(XENOTDIR)$ 

47 if(csiblk[C STAT] & CS_DVF){ 

48 xbcopy(*(int *)(csiblk+C DEVD+2),pw->cur_dev,*(int *)(csiblk+C_ DEVD))3 
49 pw->cur_dev[*(int *)(csiblk + C_DEVD)] = '\0'; 
50 

51 if(csiblk[c STAT] & CS DIF){ 

52 uic = (char *)( *(Cint *)(csiblk + C DIRD + 2 ))5 
53 rval = val _uic(uic)}3 

54 if(rval >= 0) 

55 xstrcepy(pw->cur uic, uic)} 
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return(rval)3 


val _uic(uic) 
char *uic$ 
{ 
int rval3 
if(*uict+ != '[') 
return(XENOTDIR) 3 
rval = group(&uic); 
if(rval < 0) 
return(rval)3 
if(*uict+ != ',') 
return(XENOTDIR) 3 
rval = group(&uic)3 
if(rval < 0) 
return(rval)3 
if(*uic t= ']') 
return(XENOTDIR)3 
return(0);3 
} 
group(s) 
char **s3 
t o 
int 135 
char *p = *s 3 


fFor(i=03i<33i++, p++) 
if( isdigit(*p)) 


if(*p > 067) /* octal digit 
{ 
“sg = P> 
return(XENOTDIR) $3 
} 
else 


continue} 
else 
break} 
wg = P3 
return(0)3 


ate 
ray 
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/* 
@(#)xchown.c 1.4 3/29/85 


Xchown for RSX. 

ve / 

#include <xspecial.h> 
#include <rsxos.h> 
#include <xpwd.h> 


extern struct passwd *“pw3 


xchown( name, special ) 
char *name$ 
int special; 


char buf[MXNAMELEN +1]; 

int rval3 

struct pr { 
char syL5]3 
char owL5]3 
char grl5]3 
char wol5]; 
} pr 

/* 

char cmdlin[CMDSIZE]; 


rval = xmodname( &name, special, buf, sizeof(buf) ); 
if( rval < 0 ) 
return( rval )3 

mkcmd(cmdlin,"PIP ",name,''/NM/PR", 
"/SY:",getown(pr.sy,pw->lgn prv&017), 
"/OW:"', getown(pr.ow, pw->lgn prv&0360), 
"/GR:"', getown(pr.gr,pw->lgn_ prv&07400), 
"/WO:'"',getown(pr.wo,pw->lgn prv&0170000), 
"/FO",0)3 

mkcemd(cmdlin,"PIP ",name,"/PR/NM/FO",0)$ 

return(cmdcall(cmdlin))3 


se 
return(0)3 
} 
/ ¥ 
char * 
getown(s,v) 
char *s$ 
int v} 
{ 
if(v & 01) 
*ot+ = 'R'S 
if(v & 02) 
*eot+ = ‘W's 
if(v & 04) 
weot+t = 'E's 
if(v & 010) 
kegtt = "D's 


*s = '\0'S 
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58 return(s)}3 
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/ * 
“Wh 2Gh 


Function to use for all RSX low level close routines. 


ato 
a 


#include <rsxos.h> 
#include <xstdio.h> 
#include <xspecial.h> 
10 #include <fcs.h> 


WOON DUAL WHF 


12 extern struct rcb_rcbl]; 
13. xdclose( sysid ) 
14 register struct rcb *sysid3 


15 

16 

17 register int bytes$ 

18 if( sysid->flags & RFREE ) 

19 return 1; 

20 sysid->flags &= ~DBLBUF}3 

21 if( sysid->mode & XFCREAT || sysid->mode & XFAPPEND ) { 

22 bytes = sysid->bleft}3 

23 switch (bytes) { 

24 case 512: 

25 bytes = 05 

26 break$ 

27 case 0: 

28 putblk(sysid)}3 

29 break; 

30 default: 

31 putblk(sysid) 3 

32 bytes = 512 - bytes3 

33 bytes & 01 ? ++bytes : bytes; 

34 break} 

35 } 

36 _wmrec(sysid->fdb, sysid->rec.rsize, bytes); 

37 /* Write max rec & first free byte */ 
38 xfree( sysid->rptr )3 /* free record */ 

39 

40 __close(sysid->fdb); /* call CLOSES */ 

4l xfree( sysid->bptr ); /* free block buffer */ 
42 xfree(sysid->fdb)3 /* free FDB */ 

43 dassign( sysid->rlun )3 /* mark LUN as free */ 
44 sysid->flags = RFREE; /* mark RCB as free */ 
45 
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/ 
Q@(#)xdir.c 1.4 3/29/85 


Xdir(3X) for RSX - make a directory, remove a directory, move a file. 
*/ 

#include <xspecial.h> 
#include <xgenlib.h> 
#include <xpwd.h> 
extern mkcmd()3; 

10 extern long radix()3 
ll extern char *“csiblk3 
12 extern struct passwd *pw3 
13. #define EXEFN 010000 


WOON DUH WN 


15 xmkdir (what, special ) 
16 char “what; 
17. int special; 


18 { 
19 return(XEOPNOTSUPP) $ 
20 /* 


21 char buf[ MXNAMELEN + 1 ]; 
22 char cmdlin[CMDSIZE]; 
23 int rval;3 


25 rval = xmodname( &what, special, buf, sizeof( buf ) ); 
26 if(€ rval < 0 ) 


27 _return(XENOTDIR )3 

28 if (!(csiblk[C STAT] & CS_DVF)) 

29 return(rval - 512)3 

30 if (!(csiblk[c STAT] & CS DIF)) 

31 return(XENOTDIR)$ 

32 if(csiblk[C STAT] & CS_NMF) 

33 return(XENOTDIR)$ 

34 if((rval = val_uic( *(int *)(csiblk + C_DIRD +2))) < 0) 
35 return(rval)3 


36 mkcmd(cmdlin,"UFD ", what, 0 )3 
37 return(cmdcall(cmdlin) )3 

38 x / 

39 } 


41 xrmdir (what, special ) 
42 char *“what$ 

43 int special; 

44 { 

45 char buf[ MXNAMELEN + 1 ]; 
46 int rval$ 

47 char cmdlin[{CMDSIZE]; 
48 char uic({UICSIZE]; 

49 char *puic= uic;3 

50 char dev[6];3 

51 char *cuic;3 


53  rval = xmodname( &what, special, buf, sizeof( buf ) )3 

54 if € rval < 0 ) 

55 return(XENOENT) 3 

56 if ((csiblk[C STAT] & CS NMF) || (!(csiblk[C_STAT] & CS _DIF)) ) 
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57 return(XENOTDIR)$ 

58 if (csiblk[cC STAT] & CS DVF){ 

59 xbcopy(*(int *)(csiblk + C DEVD +2 ),dev, *(int *)(csiblk + C DEVD)); 
60 dev[*(int *)(csiblk + C DEVD)] = '\0'; 

61 } 7 

62 else { 

63 xstrcpy(dev,pw->cur dev); 

64 } 


65 cuic = (char *)( *(int *)(csiblk + C DIRD + 2))3 
66 while ( *cuic >= 0) 


67 

68 if( isdigit(*cuic) || ( *cuic == 0) ) 
69 *puict+ = *cuic$ 

70 cuictt$3 

71 


72 mkcmd(cmdlin,"PIP ",dev,":[0,0]",uic,".DIR3*/DE/NM",0); 
73 return(cmdcall(cmdlin))3 
74} 


76 xrename (from, from special, to, to special ) 
77 ~char *from, *to3 
78 int from special, to special; 


80 char buf[ MXNAMELEN + 1 ]; 
81 char buf2[ MXNAMELEN + 1 ]; 
82 char cmdlin[CMDSIZE]; 

83 int rval3 


85 rval = xmodname( &from, from special, buf, sizeof( buf ) ); 
86 if( rval <0 ) 7 

87 return(XENOENT) 3 

88 rval = xmodname( &to, to special, buf2, sizeof( buf2 ) )3 
89 if( rval <0 ) 7 

90 return(XENOENT) $ 

91 mkcmd(cmdlin,"PIP ", to, "="", from, "/RE/NM", 0); 

92 return(cmdcall(cmdlin))3 

93 } 
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/* 

AWh %GK 

xdopen(3x) for Rsx. 
*/ 


#include <rsxos.h> 
#include <xstdio.h> 
#include <xspecial.h> 
#include <xerrno.h> 
#inglude <fcs.h> 


extern xdread()}3 

extern xdwrite();3 

extern xdclose()3 

extern char *csiblk;3 
extern struct rcb_rcbl]; 


xdopen( name, mod, special ) 


char *“name}3 
register int mod$3 
int special; 

{ 

int rval3 

int exosfd3 

int rmode;3 

int ioflag3 


int rsize3 /* file type . if ascii then rcblsysid].rec.rsize 


else non-zero. 
*/ 
register struct rcb “sysid3 
register XFILE *file; 
char buf[MXNAMELEN + 1]; 


rval = xmodname( &name, special, buf, sizeof( buf ) )3 
if( rval <0 ) 
return( rval )3 
/* 
Translate mode to Rsx mode and type. 
*/ 
sysid = newrcb(mod); 
if((int )sysid < 0) 
return (int) sysid; 
rmode = xtranmode( mod, &ioflag) 3 
if ( rmode < 0 ) 
return( rmode )}3 


exosfd = xnewod()3 /* get a free file descriptor */ 


if( exosfd < 0 ) 
return( exosfd )3 
if( sysid->mode & XFCREAT) 
create( sysid->fdb, sysid->rec.rsize)}3 
rval = parse(name, xstrlen(name))}; 
ff(rval <0) ©. i 
return rval3 


_ rval = _ open(sysid->fdb,rmode,sysid-~rlun,:siblk+C DSDS); 
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57 if(rval < 0) 


58 return(rval)3 

59 if( mod & XFAPPEND ) 

60 getlblk(sysid)$; * get last block */ 
61 


62 file = & xioblexosfd]; 

63 file-> file = exosfd; 

64 file-> flag |= ioflag; 

65 file-> sys id = (char *)sysid3 
66 file-> read = xdread; 

67 file-> write = xdwrite}3 

68 file-> close = xdclose; 

69 return( exosfd )}3 

70} 


72 struct rcb * 
73 newrcb(mod) 
74 register int mod3 


75 { 

76 register struct rcb *sysid = _ rcb} 

77 char *D3 

78 int Ls 

79 

80 for(i=0; i < XNFILE; ++i, ++sysid ) { 

81 if(sysid->flags & RFREE ) 

82 break; 

83 

84 if ( i >= XNFILE) | 
85 return (struct rcb *) XEMFILE; /* Too many files open */ 
86 

87 sysid->mode = mod3 

88 sysid->flags = RUSED; 

89 sysid->bptr = xmalloc(BLKSIZE)3 

90 sysid->fdb = xmalloc(FDBSIZE); 

91 for( p = sysid->fdb; p < sysid->fdb + FDBSIZE 3 ++p ) 
92 *p = 03 

93 if( !sysid->bptr || !sysid->fdb ) 

94 return (struct rcb *) XENOMEM; /* No memory */ 
95 sysid->bnptr = sysid->bptr3 

96 if( mod & XFCREAT || mod & XFAPPEND ) { 

97 sysid->bleft = BLKSIZE3 

98 sysid->rptr = xmalloc(RECSIZE); 

99 if ( mod & XFASCII ) 

100 sysid->rec.rsize = 03 

101 else 

102 sysid->rec.rsize = 5123 

103 } 

104 else { 

105 sysid->bleft = 03 

106 sysid->rptr = 03 

107 sysid->rec.rleft = -1;5 

108 } 

109 sysid->rnptr = sysid->rptr;3 

110 sysid->rlun = glun(); 

111 return sysid3 
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113 } 
114 
115 


116 getLblk(sysid) 
117 register struct rcb *sysid}; 


118 f 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 } 


register char *fdb = sysid->fdb3 


int ffby = *((int *) ( fdb + F_FFBY )); 
sysid->rec.rsize = *((int *) ( fdb + F RSIZ 
if( ffby ) { 

getblk(sysid); 


sysid->bnptr += ffby3 
sysid->bleft = BLKSIZE - ffby; 
--*((long *)( fdb + F_BKVB ))3 
} 


)) 
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WOON BOL WHE 


/* 
“Wh GS 


Function 


*/ 


#include 
#include 
#include 
#include 


extern s 


#define 


xdread ( 

register 
char *bu 
int size 


{ 


3 


read(sys 
register 
char ¥ 
register 


{ 


_get(sys 
register 


to use for all RSX low level read routines. 


<xstdio.h> 
<xspecial.h> 
<extypes.h> 
<fcs.h> 


truct rcb _rebl]; 


endblk(i) ((!i->bleft) ? getblk(i) : 1 ) 


sysid, buf, size ) 
struct rcb *sysid3 
£5 


e 
? 


if( size < 0) 


return -l3 /* error 
if( sysid->flags & REOF ) 
return 03 /* eof */ 


if( sysid->mode & XFASCII ) 

return ( _ get(sysid,buf,size)); 
else 

return ( read(sysid,buf,size))3 


id,buf,size) 


struct rcb *sysid3 
buf 3 

int size3 
register int count = 03 
int rval3 


while(size--) { 
if(( rval = endblk(sysid)) <= 0 ) 
return count ? count : rval3 


*buf++ = *sysid->bnptrtt+3 
--sysid->bleft}5 
++count 5 


} 


return count$5 


id,buf,size) 
struct rcb *sysid; 
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57 char *buf 3 
58 register int size} 
59 { 
60 register int count = 03 
61 int rval3 
62 | 
63 while(size--) { 2 @ AC. 
64 if( !sysid->bleft && ((rval = getblk(sysid)) < 0) Me peaF : 
65 return count ? count : rval$ 
66 if( sysid->rec.rleft <= 0 && ((rval = endrec(sysid)) < 0) ) 
67 return count ? count : rval3 
68 if( sysid->flags & REOF ) { /* EOF */ 
69 *buf = '\n's ee 
70 return ++count}3 , 
71 ™ 
72 if(sysid->flags & REOLN) { hk ok 
73 *buf++ = '\n's wore 
74 sysid->flags &= ~REOLN; /* reset */ 
75 } ae 
: ene (o 
he else ge eeu maaan sad: { _ 2 ort oock Y ok A(R 
*bu = *sysid->bnptrtt3 hd eo 
78 --sysid->bleft; | 
79 --sysid->rec.rleft3 
80 } 
81 else { /* case of zero records * / 
82 ++512e3 
83 continue} 
84 } 
85 ++count 3 
86 } 
87 return count$3 
88 } 
89 
90 
91 endrec(sysid) 
92 register struct rcb *sysid3 
93 { 
94 
95 register int rval3 
96 _ oie, 
97 if( sysid->rec.rleft == 0 ) "ae AY 
98 sysid->flags |= (REOLN |\RCRFLAG )3 / 
99 if( (Ushort)sysid->bnptr & 01 ) { ~. 23 
100 ++sysid->bnptr3 Sez feb pt 
101 --sysid->bleft3 : ; 
102 } _ | ( 
103 if((rval = endblk(sysid)) <= 0) imtiok y% wes 
104 return rval; poet record, 
105 sysid->rec.rleft-=“*(int *)sysid->bnptr3 
106 sysid->bnptr += 23 /* adjust the pointer */ 
107 sysid->bleft -= 23 
108 return endblk(sysid) 3; 
109 } 
110 
111 


112 extern int __read()3 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 


extern int rastdio( 


)3 
extern int rwait(); 


getblk(sysid) 
register struct rcb *sysid; 
{ 

register int ret$ 


ret = dio(sysid, read,rastdio, rwait); 
if(ret == 0) | 

sysid->flags |= REOF; 
sysid->bleft = ( ret > 0 ) ? ret : 03 
return ret 5 
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Function to use for all low Level write routines. 


#include <xstdio.h> 
#include <xspecial.h> 
#include <extypes.h> 
#include <fcs.h> 


extern struct rcb_rcbl]; 


xdwrite(sysid, buf, size) 
register struct rcb *sysid3 
char * buf3 

int size} 


{ 


if( size < 0 ) 

return -1l3 /* error 
if( sysid->mode & XFASCII ) 

return put(sysid, buf, size); 
else 

return write(sysid, buf, size); 


} 


write(sysid, buf, size) 
register struct rcb *sysid3 


char * buf} wo 


register int size} bee 


register int count = 0; . 
£ 6 ? G- ee 
int rval3 fs a 


while ( size--) { 
if( !sysid->bleft) { 
if((rval = putblk(sysid)) <= 0) 


} 
*sysid->bnptr++ = *buf++; 
--sysid->bleft3 
++count 3 


} 


return count} A : ms y \ \ 
| i| ( pypork a KEV$ 
_put(sysid, buf, cnt) at") Lo 


register struct rcb *sysid} 


char *buf 3 
int cnt} 
char *nbuf 5 


b 


return count ? count : rval3 


ie YY 
7 ght 
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register char *“wbuf}3 
int nent, went, rval, count = 0, tot = 0; 


while(cnt) { 
wbuf = buf3 
went = cnt$; 
xloce('\n', went, wbuf, &ncnt, &nbuf); 
if(nent) { 
/* found EOL, backtrack to find a '\r', if any */ 


if((*buf != '\n') && (nbuf[-1] == '\r')) 
count = cnt - nent - 1} 


count = cnt - nent} the peut amt id i go 


i= Cc “ 
if((rval = suteceter eta) bee. count)) <= 0) ‘ 


return count ? count : rval3 


else 


register char *buf3 
int size} 


ent = nent - 13 
buf = nbuf + 13 eee fant 
tot += cnt - nent + 13 Oo el ae DO 
——— 3 Qe 
3} /* end of if(ment)... */ yk aad voxel 
else { /* if nent == 0, i.e. no '\n' found in buffer */ oie ok 
xbcopy(buf, sysid->rptr, cnt); (y€ % < 
Sysid->rnptr += cnt} 
if((sysid->rnptr - sysid->rptr) > BLKSIZE) 
sysid->rnptr = sysid->rptr + BLKSIZE; 
sysid->flags |= KEPT ASIDE; 
tot += cnt$ /* the kept aside bytes */ 
cnt = 03 
} 
} /* end of while(cnt)... */ 
return tot;5 
putrec(sysid, buf, size) 
register struct rcb *sysid} 
register int kept aside; 
int rval$ 
if((Ushort )sysid->bnptr & 01) { /* if on a byte boundary */ 
*sysid->bnptr++ = 0; 
--sysid->bleft;3 
: QW dd 
if(!sysid->bleft && ((rval = putblk(sysid)) <= 0)) oe 
return rval}3 : der te ace 
; Ww 


C ey ia" 
if(sysid->flags & KEPT ASIDE) N L— “ *| a a lfen 
(: 


kept_aside = sysid->rnptr - sysid->rptr; 


else ae, 
kept aside = 03 Syk- me 


*(int * )sysid->bnptr = size + kept aside; 
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113 sysid->bnptr += 23 

114 sysid->bleft -= 2; 

115 

116 if(sysid->flags & KEPT ASIDE) { 

117 sysid->flags &= ~KEPT ASIDE; 

118 if((rval = rec(sysid, sysid->rptr, kept _aside)) <= 0) 
119 return rvals$ 

120 sysid->rnptr = sysid->rptr3 

121 

122 if((rval = rec(sysid, buf, size)) <= 0) 
123 return rval3 

124 

125 return 13 

126 

127 } 

128 

129 


130 rec(sysid, buf, cnt) 

131 register struct rcb *sysid; 

132 char “buf $3 

133 register int cnt;3 

134 

135 register int leftcnt = 03 

136 int rval; 

137 

138 if(sysid->bleft < cnt) { 

139 leftcent = sysid->bleft;3 

140 xbcopy(buf, sysid->bnptr, leftcnt)$; 
141 if((rval = putblk(sysid)) <= 0) 
142 return rval3 

143 

144 xbcopy(buf + leftcnt, sysid->bnptr, cnt - leftcnt)3 
145 sysid->bnptr += cnt - leftcnt3 

146 sysid->bleft -= cnt - leftcnt;3 

147 

148 return 13 

149 } 

150 

151 

152 extern int wastdio()3 

153 extern int write(); 

154 extern int wwait(); 

155 

156 

157. putblk(sysid) 

158 register struct rcb *sysid; 

159 { 

160 

161 sysid->bleft = BLKSIZE;3 

162 return dio(sysid, write, wastdio, _wwait); 
163 

164 } 

165 

166 xlocc(c, cntl, bufl, acnt2, abuf2) 

167 char C3 

168 register int entls 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 


register char *“buf1; 


int *acnt23 
char *%¥abuf23 


register int i$; 
int found = 03 


for(i = 03 i < cntl3 it+) 
if(*bufl++ == c) { 


foundt++3 
break$3 
if(found) { 
*acnt2 = cntl - i$ 
*abuf2 = --bufl; 
} 
else 
*acnt2 = 03 /* char 'c' not found 


} 
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1 } “ 

2 “Wh %G% 

3 

4 Unix specific close all EXOS file objects and exit program. 
5 «/ 

6 

7 #include <xstdio.h> 

8 

9 xexit( status ) 
10 
ll int status; 
12 
13° int i$ 

14 

15 for€ i = 03 i < XNFILE 3 ++i ) 
16 

Li? xclose( i )3 

18 


19 exit( status )3 
20 } 
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/* 

“Wh 2GZ 

xftpopen(3x) for Rsx. 
x / 


#include <xstdio.h> 
#include <xspecial.h> 
#finclude <xerrno.h> 
#include <fcs.h> 
#include <ftp.h>} 


extern xdread()3 
extern xdwrite();3 
extern xdclose()3 
extern dread()3 


extern dwrite(); 


extern int type} 
extern struct dblbuf hbuf3 


xftpopen( name, mode, special, ftp attributes 


char *“name3 

int mode} 

int special; 

register struct ftp attr *ftp:: nei buna: 


{ 


int rval;3 
register XFILE *file; 


abe 
n 


Check that ftp attributes are supportted. 
«| 
if( ftp attributes ) 


if( (ftp attributes->rep type != RT ASCII && 
ftp attributes->rep type != RT IMAGE ) 
ftp attributes->format != TF NONPRINT 
ftp attributes->structure != IS FILE | 
ftp attributes->trans mode != TM STREA 


return( XEOPNOTSUPP )3 


if( type == TYPE A) 

mode |= XFASCIT;3 
rval = xdopen(name, mode, special); 
if(rval >= 0 ) f 

file = & xiob[rval]; 

file-> read = dread; 

file-> write= dwrite; 

if( mode & XFREAD ){ 


hbuf.statl0] = getblk(file-> sys id); 


} 


| 
| 
M 
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57 hbuf.buffer[0] = ((struct rcb *) file-> sys id)->bptr3 
58 } 

59 return rval3 

60 } 
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1 /* 

2 static char sccsId[] = "@(#)xgethbad.c 1.4 3/26/85"; 
3 

4 code to make 4.2 style code, sort of, happy. 
5 */ 

6 

7 #include <arp.h> 

8 

9 extern long xrhost()3 
10 
ll 
12 


13. struct hostent * 
14 ghbaddr( addr, size, family ) 


15 /* 

16 gethostbyaddr for C compilers with 8 character identifiers 

17 WARNING ---- 

18 a second call to this routine will destroy the previous result. 
19 * / 

20 


21 struct in_addr *addr3 
22 int size, family; 


23 { 
24 static struct hostent hent3 
25 


26 hent.h name = (char *)xraddr( addr->s_ addr )3 
27 ~return( ( struct hostent *)&hent )3 
28 } 
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1 [* 

2 static char sccsId[] = "@(#)xgethbnam.c 1.4 3/26/85" 
3 

4 code to make 4.2 style code, sort of, happy. 

5 */ 

6 

7 #include <arp.h> 

8 

9 extern long xrhost()3 
10. 


11 struct hostent * 
12 ghbname( host ) 


13. /* 

14 gethostbyname for C compilers with 8 character identifiers 

15 WARNING ---- 

16 a second call to this routine will destroy the previous result. 
17 */ 

18 

19 char *“host3 

20 { 


21 static struct hostent hent} 
22 static struct sckadr in sock; 


23 

24 sock.sin addr.S un.S addr = (long)xrhost( &host )3 
25 if (sock.sin_addr.S_un.S addr == -1 ) 

26 return( (struct hostent *)XNULL)3 


27 hent.h addr = (char *)&sock.sin addr} 
28 hent.h name = host; 

29 return( &hent )3 

30 } 
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* FILE NAME: XGLOB.C 


* Xglob for RSX. Expand wild word in input 


#include <xgenlib.h> 
#include <xspecial.h> 


#define MAXINSPEC 20 
extern xgfatal(); 


static char **gargv = 03 
static short gargc = 03 
char *globerr = (char *)03 
short gflag = 03 

char *in stat = (char *) 03 
char *f stat = (char *) 03 

char *in ver stat = (char * )0; 
char *f ver stat = (char * )0} 
int globbing = 03 


/ we 
* Main root of xglob. 
* / 
char ** 
xglob( v ) 
register char **v3 


char **agargv3 


/* initialize return parameter */ 
garev = xmalloc(2)3 
*gargv = (char *)03 

globerr = (char *)03 
globbing = 13 

in stat = xmalloc(MAXINSPEC)3 

in ver stat = xmalloc(MAXINSPEC) ; 
gargc = 03 

while (*v) { 

if (wildchar(*v) ){ 
agargv = glob(*vt+)3 


else { 


agargv = xmalloc(xstrlen(*v)+l +4); 


if(agargv == (char *)0) 
xgfatal("Out of Memory"); 
*“agargv = agargv + 25 
agargvl1] = (char *)03 
xstrcpy(agargv + 2, *v++)3 
} 
gargv = copyblk(gargv,agargv) 3 


line. 
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57 } 

58  xfree(in stat); 

59 xfree(in ver stat); 
60 globbing = 03 

61 return(garev); 


66 char ** 

67 glob(name) 

68 char *name}3 

69 { 

70 char buf[400]; 

71 char “line = 03 

72 char templatel[16] 3 
73. char list namel27]; 
74 char *bufp = buf3 
75 int len3 

76 int rval3 

77 =int sys id; 

78 XFILE *file3 

79 int argc3 

80 char **argv = (char **)03 


82 xstrcpy(template,SCRATCHFILE) 3 

83 /* xmktemp(template); */ 

84 rval = I1s(template, name, LS ARG); 
85 if{rval < 0){ 


86 globerr = " glob failed"; 
87 return(0)3 
88 


89 sys id = opentemp(template) 3; 
90 if (sys id >= 0){ 


91 file = xodopen(sys id,"r"'); 

92 

93 if(sys id < 0 || file < ( XFILE * ) 0 ) { 

94 globerr = " Can't open file for globbing"s$ 

95 return(0)3 

96 

97 /* 

98 * initialize buff, which is used to filled with list of names 
99 */ 

100 

101 £ stat = in stat - 13 /* used in nam list */ 
102 f£ ver stat = in ver stat - 1; /* used in nam list */ 
103 

104 for{bufp=(char *)buf; bufp<(char *)buf + sizeof buf3;) 

105 “bufpt+ = '\O's 


106 bufp = buf; 
107. ~while(rval = xogets(List name,sizeof(list name), file) > 0) { 


108 if(!nam list(list name) ) 

109 continue; — /* discarding temp name created by glob * 
110 remtrail(list name); 

111 len = xstrlen(list name) + 13 


12 if((buf + sizeof(buf) - bufp) > len) 
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113 { 

114 xstrepy(bufp,list name); 

115 bufp += len; 7 

116 *(bufp -1) = ' '3 /* name separator */ 
117 

118 else 

119 { 

120 argv = copyblk(argv, xmkarglist(buf, &argc))3 

121 for(bufp=(char *)buf; bufp<(char *)buf + sizeof buf3;) 
122 *bufptt+ = '\0'S 

123 bufp = buf; 

124 } 

125 } 

126 if € bufp > buf) 

127 argv= copyblk(argv, xmkarglist(buf, &argc))3 


128 xclose(xfileno(file)); 

129 =rval = xunlink(template,FILE NAME); 

130 if(rval < 0) { 7 

131 globerr = " system error -- can't delete file "$ 
132 return(0)3 

133 } 

134 

135 

136 = return(argv)$ 

137 

138 } 

139 

140 char ** 

141 copyblk(vl, v2) 

142 char **v135 

143 char **v23 

144 f{ 

145 register char **nv 3 

146 int 1% 

147 1 
148 

149 ; 

150 = nv = xmalloc(i)3 
151 if (nv == (char *)0) 


(blklen(vl) + 1) * sizeof(char **) + blkslen(vl) 
(blklen(v2) + 1) * sizeof(char **) + blkslen(v2) 


+ il 


152 xgfatal("Out of Memory"); 
153 return(blkcpy(nv, vl, v2))3 
154 | 

155 } 

156 

157. char ** 


158 blkepy(v, vl, v2) 

159 char **yv, *«*yvl] Z wey? § 
160 { 

161 register char **av = v$} 
162 char **ovl = vl35 

163 char **ov2 = v23 

164 char *stringp3 

165 

166 if(vl){ 

167 while(*vl++) 

168 +tav3 
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169 } 
170 if (v2){ 
171 while(*v2++) 


172 ++av3 

173} 

174 stringp = (char *)++av;3 
175 av = v3 

176 vl = ovl3 

177 v2 = ov23 

178 


179 if(vl){ 
180 =while(*vl){ 


181 *av+t = stringp$ 

182 xstrepy(stringp, *vl)3 

183 stringp += xstrlen(*vl++) + 13 
184 

185} 

186 


187 if(v2){ 
188 while(*v2){ 


189 *av+t = stringp3 

190 xstrepy(stringp, *v2)3 

191 stringp += xstrlen(*v2++) + 13 
192 

193 } 

194 


195 *av = (char *)03 
196 if(ovl) 

197. + xfree(ovl); 

198 if(ov2) 

199 xfree(ov2);3 

200 = return(v)3 

201 } 

202 

203. wildchar(p) 

204 char *p; 


205 { 

206 

207. = while(*p){ 

208 if(( *p == '*')|| (*p ey ae 
209 return(1); 
210 ptt; 

211 

212 +=return(0);3 

213 } 

214 

215 


216 xgfatal(string) 

217 char *string;3 

218 { 

219 xoprintf(xstderr, "xglob:%s\n", string); 
220 xexit(1); 

221 } 

222 

223 

224 blklen(av) 


May 19 


225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
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248 
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250 
2a. 
252 
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256 
257 
258 
259 
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register char **av3 
register int i = 03 


if(av != XNULL) 

while(*av++t) 
it++t3 
return(i)$3 


; 


static 
blkslen(argp) 

register char **argp; 
{ 


int total = 03 


if(argp != XNULL) 
while(*argp) 


total += xstrlen(*argptt+) + 13 


return(total); 


j 


remtrail(s) 
char *“s$ 
char “starts 
start = s$ 
s = s + xstrlen(s) - 13 


while ((s >= start) && ((*s == '\r') || (*s == '\n'))) 


ts-- = '\0"5 


May 19 
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/ ate 
ow 


RSX implementation of xinit env(3X). 
* / ~ 
#include <xpwd.h> 

#include <xgenlib.h> 

#include <xctype.h> 


#define upper(c) (isupper(c)) ? c : toupper(c) 
#define EFN 1 

#define SRDA 01153 

#define TASK EFN 2 


extern Long radix()3 

extern ast recv()}3 

char msgel | =" ’ 
extern struct passwd *pw3 

static int buf[16] = {0}; 


xinit_env( name, password, account ) 


char *name3 /* Loggin name */ 
char *password; /* password */ 
char “account; /* login uic */ 
{ 

int rval}3 

int dirdes[2]; 

long task; 


if ( !name ) 

return( 0 ); 
emt (SRDA,ast_recv)3 
emt (CLEF,TASK EFN)3 


emt(GTSK,buf); /* get task info for type of system this demon is running on */ 


/* validata user's login information */ 
rval = login(name, password,account)$ 
if( rval <0 ) 

return(rval - 512)3 
dirdes[0] = xstrlen(pw->Llogin uic); 
dirdesL1] = (int ) pw->login uic; 
ascpp(dirdes,msge) 3 
emt (CLEF,TASK EFN); 


if(buf[14] == 6) /* is it an RSX-11M-PLUS system */ 
task = radix("DEMTO "); 

else /* it is an RSX-11M system */ 
task = radix("...DEM"); 


emt (SDAT, task,msge,0)3 [* 
* send login uic to 
* ..edem , which updates 
* this task uic as user's 
* login uic 
*/ 

emt (WISE,TASK EFN) ; 
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57 emt(SRDA,0);3 


58 

59 return( 1 )3 
60 } 

61 


62 lLogin(name, password,account ) 

63 char “name3 

64 char “password; 

65 char “account3 

66 { 

67 int i= -l, ce = 03 

68 long tsk} 

69 int asefn = 0100013 /* EFN = 1 */ 
70 int rval3$ 

71 int esb[8]; 


72 

73. if (buf[14] == 6) /* if an RSX-11M-PLUS system */ 

74 tsk = radix("LGNTO "); 

75 else 

76 tsk = radix("...LGN"); 

77 

78 while( name[+t+ti] && cc < 14 )f{ 

79 if(name[i] == '/') 

80 break3 

81 msgelcct++] = upper(nameli]); 

82 

83 while(cc < 14) 

84 msge[cct+] = ' '3 /* padded the name whith blanks */ 

85 msgelcct+] = '*'s 7 /* separator between name & account */ 
86 if( name[i] == '/' && (name[i+1]) ){ 

87 while(name[++i] && cc < 26) 

88 msge[cc++] = upper(namel[i]); 

89 } 

90 else f{ 

91 i= -l3 

92 while( password[++i] && cc < 26 ) 

93 msge[cc++] = upper(passwordli]); 

94 } 

95 while(ce < 26) 

96 msgelcct+] = ' '3 

97 emt (SDAT,tsk,msge,0)3 /* send pkt to ...lgn task * / 
98 emt(USTP,tsk)$ /* unstop ...lgn %/ 

99 emt(WISE,TASK EFN)$ /* wait for receive pkt from ...lgn */ 
100 rval = *( (int *)(msge + 4)); /* return status */ 


101 if(rval == 0) { 


102 xstrepy(pw->cur uic, msget6); 
103 xstrcpy(pw->Llogin uic, msget+6); 
104 xstrepy(pw->log dev, msge+l6)3; 
105 xstrcpy(pw->cur dev, msgetl6); 
106 } 

107 

108 return(rval )3 

109 


110 } 
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#include <xgenlib.h> 
#include <xspecial.h> 
#include <xpwd.h> 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


#define 


static 
static 


char hdir[27] = {0}; 


xls(od, 
int od3 


char “name}3 


long radix(); 
xread()3 

xdread(); 

char *csiblk3 
struct passwd *pw35 
char *f stat} 

char *in stat; 
char *f ver stat$ 
char *in ver stat; 
int globbing3 


EXEFN 010000 


char brief[] = "/BR''s 
char full[] = "/FU"S 


name, code) 
* io object for network data connection */ 


al, 
a 


‘ name of uic to list, null == current */ 


— 
ot 


int code}; 


{ 


register XFILE “file; 
char templatel16]; 

int rval3 

int sys id; 


int d3 


if (od<0 || od >= XNFILE) 


return(XEBADF ) 3 


if(name && *name && ((code == LS) || (code == LS ARG))){ 


} 


rval = checkname(name) 3 
if(rval < 0) 
return(rval); 


/* check name is dir or simple name */ 


if(rval) { 
d = xaccess(name,FILE NAME,0); /* check file exists or not 
if(d < 0){ 
return(XENOENT) ; 
} 
d = xoprintf£(& xioblod],"%s\n",name) ; 
if(d < 0){ 
xperror(d,"on output"); 
} 


return(d)3 


} 


xstrcpy(template,SCRATCHFILE) 3 
/* xmktemp(template); */ 


rval 


= 1s(template, name, code); 


if(rval < 0) 


ale 
“ 
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57 return(rval)3 

58 sys id = opentemp(template); 
59 if sys id < 0) 

60 return(sys id); 

61 file = xodopen(sys id,"r"); 
62 if(file < (XFILE *)0) 

63 return( ( int )file); 

64 xpass(file, & xioblod]); 

65 xclose(xfileno(file))3 

66 rval= xunlink(template, FILE NAME); 
67 return(rval )3 

68 

69 } 

70 

71 xpass( inod, outod ) 

72 


73 XFILE *inod3 /* input EXOS io object */ 
74 XFILE *outod3 /* output EXOS io object */ 
75 { 

76 int c} 

77 int d}3 

78 char name[512]; 


80 while(c = xogets(name,sizeof (name) ,inod) > 0){ 
81 if(!nam_ list (name) ) 

82 continue} 

83 xoprintf(outod,"%s",name) $ 

84 xfflush(outod)3 


} 
86 if(c < 0) { 
87 xperror(c, "on input")$ 
88 return(c)$ 


90 } 


92 int 

93 1s(template, name, code) 

94 char “template; 

95 char “name; 

96 int code3 

97 { 

98 char *swtch$ 

99 char cmdlin[CMDSIZE]; 

100 long tsk} 

101 int rval; 

102 char “cur name3 /* use to replace user's if supplied or 
103 7 pointing to null. */ 

104 char inspec[CMDSIZE]; 

105 char *inp = inspec3 

106 char *f stat = in stat; 

107 char *f ver stat = in ver stat} 
108 char stat = '\0'$ 


109 
110 switch (code) { 
111 case LS: 


112 case LS ARG: 
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113 swtch = brief3 
114 break$ 

115 case LSLONG: 

116 case LSLONG ARG: 

117 swtch = full; 
118 break$ 

119 default: 

120 return(XEINVAL)3 
121 

122 

123 if( name == ( char *)0) 
124 cur name = ( char *)&name} 
125 else 

126 cur name = name} 
127 7 


128 /* create command to produce list */ 
129 for 33 ){ 


130 rval = parse(cur name,xstrlen(cur name)); 

131 if(rval < 0) 

132 return(rval)3 

133 if (globbing){ 

134 if((f stat > in stat) && 

135 ( ((_stat & CS _DVF) && !(csiblk[C STAT] & CS DVF)) || 

136 (( stat & CS DIF) && !(csiblk[C STAT] & CS DIF)) 

137 )) 

138 return(-1)3 /* command syntax error */ 

139 stat |= csiblLk[c STAT]; 

140 *f stat++ = csiblk[C STAT]; 

141 

142 *f ver stat = 03 /* assume version is not specified */ 
143 if(csiblk[C STAT] & CS_NMF){ 

144 int 13 

145 for(i=O03i < *((int * )(csiblk + C FILD))3++i) 

146 if(*((char * )(*(int *)(csiblk + C FILD + 2)) + i) == '3') { 
147 *f ver stat = 13 /* version is indeed specified! */ 
148 breaks 

149 } 

150 } 

151 £ ver stat++3 

152 7 

153 if((rval = mkname(inp)) == 0 ) 

154 break} /* no more in spec */ 

“155 inp = inspec + xstrlen(inspec)3 

156 *inpt+ = ','5 

157 cur name += rval + 13 

158 } 

159 

160 mkcmd(cmdlin, "PIP ", pw->log dev, ":", pw->login uic, template, "=", inspec, 
161 ~ swtch, '"/NM", 0)3 

162 return(cmdcall(cmdlin))3 

163 } 

164 

165 checkname(name) 

166 char *name3 /* IN-OUT */ 

167 


168 int rvals 
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169 

170 rval = parse(name,xstrlen(name) )3 
171 if(rval < 0) 

172 return(rval -512);3 

173 rval = 03 

174 if(csiblk[C STAT] & CS NMF) 

175 rval = 13 

176 return(rval)3 

177} 

178 


179 opentemp(file) 

180 char *file;3 

181 { 

182 /* 

183 char name[27]; 

184 

185 xstrcpy(name, pw->login uic)3 

186 xstrcat(name,file)3 

187 return(xdopen(name, XFREAD|XFASCII, HOME DIR)); 
188 */ 

189 return(xdopen(file, XFREAD|XFASCII, HM RELATIVE) ); 
190 

191 } 

192 

193 nam list(name) 

194 char *name}3 

195 { 

196 char buf[27]; 

197 char *cpl, *cp23 


198 

199 if(xstrlen(name) > 1) 

200 if((name[1] == 'i') || (name[2] == 'i')){ 
201 if (globbing) { 

202 £ stattt+; f ver statt+3 

203 hdir[O] = '\o's 

204 if(!(*f stat & (CS _DVF | CS _DIF))) 
205 return(0)3 

206 cpl = xstrrchr(name, ' ') + 13 
207 cp2 = xstrrchr(name, ':') + 13 
208 if(*f stat & CS DVF) 

209 xstrncat(hdir, cpl, cp2 - cpl); 
210 if(*£ stat & CS DIF) 

211 xstreat(hdir, cp2)3 

212 remtrail(hdir) 3 

213 

214 return(0)3 

215 

216 if(( name[O] == '\14') || (name[O] == '\n') 
217 || (name(0O] == '\r')) 

218 return(0)3 

219 if( (name[O] == ' ') || 

220 (name[1] == '-') || 

221 (name[2] == '-') || 

222 (xstrncmp(name, "Total of ",9) == 0) 

223 ) 


224 return(0);3 
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225 if(xstrncemp(name, '.3",2) == 0) 
226 return(0)3 

227 

228 if(globbing && !(*f ver stat)) 
229 remver(name)}3 

230 

231 if(globbing && xstrlen(hdir)){ 
232 xstrcepy(buf ,hdir)3 

233 xstrceat(buf, name)$ 
234 xstrcpy(name, buf); 
235 

236 return(1)3 

237} 

238 

239 


240 remver(s) 

241 char *s3 

242 { 

243 = s = xstrchr(s,'3')3 
244 while(*s) 

245 kgtt = '\O'S 

246 } 
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#include <xgenlib.h> 
#include <xpwd.h> 

extern struct passwd *pw; 
char * 

xmktemp(template) 

char *template3 


{ 
} 


return(1)3 


OoOn~ A uA WH he 
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1 /* 

2 

3 Rsx routine to form file names relative to users logoin uic, current 
4 uic, etc. 

5 This routine belongs in Xoslib, but is here to keep the linker happy. 
6 %/ 

7 #include <xspecial.h> 

8 +#include <xgenlib.h> 

9 #include <xpwd.h> 
10 
ce a: 
12 for now ... 
13. */ 


14 #define xsprintf sprintf 
15 extern struct passwd *pw3 


17 xmodname( name, special, buf, sz buf ) 


19 char **name3 

20 int special; 

21 char *“buf3$ 

22 int sz buf$ 

23 { 7 

24 int rvals$ 

25 char *pt = buf; 


26 

27 switch( special ) { 

28 case FILE NAME: 

29 rval = parse(*name,xstrlen(*name) ); 
30 if(rval < 0) 

31 return(rval )3 /* error while parsing */ 
32 mkname( pt) 3 

33 break$3 

34 case CURRENT DIR: 

35 xstrepy(buf, pw->cur_uic)} 
36 break} 

37 case HM RELATIVE: 

38 case HOME DIR: 

39 xstrcepy(buf, pw->log dev); 
40 xstrceat(buf, ":")3 

4l xstrcat(buf, pw->login uic)}; 
42 if (special == HM RELATIVE ) 
43 xstreat(buf, *“name)3 
44 break; 

45 case CD RELATIVE: 

46 xstrcepy(buf, pw->cur_uic)} 
47 xstrceat(buf, *name)3 

48 break} 

49 default: 

50 return( XEINVAL );3 

51 
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#include <xgenlib.h> 
#include <xspecial.h> 
#include <xpwd.h> 

extern struct passwd “pw; 


xpwd(buf, buflen, func code) 


char “buf3 /* buffer to hold name of current vic */ 
int buflen; /* length of buffer */ 
int func code; /* consistency check °/ 
{ 
if(func code != PWD) 

return(XEINVAL) 3 


xstrncpy(buf,pw->cur dev,buflen)3 

xstrncat(buf,":",buflen)3 

xstrncat(buf, pw->cur_uic, buflen - xstrlen(pw->cur dev) - 1 )3 
buf{buflen] = '\0'$ 

return(0)3 
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[* 

AWL %4G% 

convert a RSX file descriptor to an EXOS io object 
a useful in debugging and development. 


ale 
ris 


#include <xstdio.h> 


Won AU BP Ww db KE 


extern xdread()3 

10 extern xdwrite()3 
11 extern xdclose();3 
12 extern xnofunc()3 


14 xrxtex( rsxfd ) 

15 int rsxfd3 

16 { 

17 int rval3 

18 int exosfd3 

19 register XFILE “file; 


21 rval = rsxfd3 
22 if{ rval <0 ) 


23 return( rval - 512)3 

24 exosfd = xnewod(); /* get a free file descriptor */ 
25 if( exosfd < 0 ) 

26 return( exosfd )3 


27 file = & xiobl exosfd ]3 

28 file-> file = exosfd; 

29 file-> flag |= XIORW | XPrimary ; 
30 file-> sys id = (char *)rsxfd3 

31 file-> read = xdread}; 

32 file-> write = xdwrite; 

33. file-> ioctl = xnofunc; 

34 file-> close = xdclose; 

35 return( exosfd )3 

36} 
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* FILENAME XSELECT.C 


#include <xgenlib.h> 
#include "Libhdr.c" 


#define SELECT EFN 4 


#define READ 0 
#define WRITE 1 


extern int astrselect(); 
extern int astwselect()3 


long rmask = (long) 03 

long wmask = (long) 03 

long *prmask = (long *) 03 

long “pwmask = (long *) 03 

int nfounds = 03 

struct iosb iosb select = {0}; 
unsigned char rsavxiobl XNFILE] = {0 
unsigned char wsavxiob[ XNFILE] = {0 


xselect (nods,readods,writeods,timeout ) 
int nods3 
long *readods3 
long *“writeods$ 
long timeout} 
{ 
int i,ch no} 
int tick = (int )( timeout / 20L)3 


if( !readods && !writeods) 
return(0)3 
rmask = wmask = (long ) 03 
emt(CLEF, SELECT EFN); /* make sure efn is clear */ 


emt (DSAR) 3 /* disable ast recoginition */ 
if (readods) 
for( i = 03 i < nods 3 ++i){ 


if(getod(readods,i)) { 
ch_no = (int ) xiobli]. sys id; 
rsavxioblch no] = i3 
emt(QIO,I0 ACS|SA SEL,SOLUN,0,&iosb select, 
_astrselect,0,0,0,READ,0,ch no); 


} 
if(writeods) 
for( i =03 i < nods; ++i){ 

if(getod(writeods,i)) { 
ch no = (int ) xiobli]. sys id; 
wsavxiob[ch no] = i3 
emt(QIO,IO ACS|SA_ SEL,SOLUN,0,&iosb select, 

_astwselect,0,0,0,WRITE,0,ch no); 
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57 } 

58 

59 /* initialize mask and return values */ 

60 

61 rmask = (readods ? *readods : 0)3 

62 wmask = (writeods ? *writeods : 0)3 

63 prmask = readods3 

64 pwmask = writeods$3 

65 *prmask = *pwmask = (long ) 03 

66 nfounds = 03 

67 

68 /* specify timeout efn */ 

69 

70 emt (MRKT,SELECT EFN,(int )tick,1,0)3 

71 

72 emt (ENAR) 3 /* enable ast recoginition */ 
73 emt (WTSE,SELECT EFN); /* wait for eithr timeout or at least one ast*/ 
74 emt (DSAR) 3 /* disable ast recoginition */ 
75 unselect(nods,readods,writeods);/* unselect unready od's */ 

76 rmask = wmask = (long )03 /* now on ast must be ignore */ 
77 emt (ENAR)3 /* enable ast recoginition */ 
78 return(nfounds) 3 

79 

80 

81 } 

82 

83 /* 

84 * Ast service routine. 

85 */ 

86 


87 astrselect(iosb) 

88 struct iosb *“iosb3 

89 { 

90 int ch no = iosb->nread} 


92 astselect(&rmask, prmask,rsavxiobl[ch no]); 
94 } 

96 astwselcet(iosb) 

97 struct iosb *iosb; 

98 { 

99 int ch no = iosb->nread} 

101 astselect (&wmask, pwmask,wsavxiob[ch no]); 
103} 

105 astselect(mask, pmask,s) 


106 long *mask3 
107. Long *pmask3 


108 int s3 /* xiob number */ 
109 { 

110 

111 if(!getod(mask,s)) 


112 return$ /* spurious ast */ 
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113 setod(pmask,s)3 

114 nfoundst+3 

115 emt (SETF,SELECT EFN) 3; 
116 } 

117 


118 getod(mask,f) 
119 long *mask; 


120 int £3 

121 { 

122 int *p = (int *) mask; 
123 long r = (long )( 1 << £); 
124 int *q = (int *)(&r); 
125 

126 if(*p++ & *q++) 

127 return(1)3 

128 if(*p & *q ) 

129 return(1)3 

130 return(0)3 

131 } 

132 


133. setod(mask,f) 
134 long *mask; 


133 ant ts 

136. { 

137 int *p = (int *) mask; 

138 long r = (long )(1 << £)3 

139 int *q = (int *)(&r); 

140 

141 Kptt [= qt; 

142 *p = *q 5 

143} 

144 

145 /* 

146 * This routine unslects the select requests after the time out expires 
147. * and the od's that are ready are not unselected. 
148 */ 

149 


150 unselect(nods,readods,writeods) 
151 int nods; 

152. long *readods3 

153. long *writeods;3 


154 { 

155 int ch no,i$ 

156 

157 if (readods) 

158 for( i = 03 i < nods 3 ++i) 

159 if(getod(&rmask,i)) 

160 if(!getod(readods,i)) { 

161 ch no = (int ) xiobli]. sys id; 
162 emt(QIOW,IO ACS|SA_ USL, SOLUN,SOEFN,0,0,0,0,0,0,0,ch no); 
163 

164 if(writeods) 

165 for( i = 03 i < nods 3 ++i) 

166 if (getod(&wmask,i)) 

167 if(!getod(writeods,i)) { 


168 ch no = (int ) xioblil. sys id; 
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169 emt (QIOW,IO ACS|SA_USL,SOLUN,SOEFN,0,0,0,0,0,0,0,ch no); 
170 
171: 3 
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ale 
a 


Xsleep(3X) for RSX. 
*/ 


#include <rsxos.h> 
xsleep( time ) 


WwOemn nu fp WH 


int time$3 
lo { 


12 emt(MRKT,10,time,2,0); 
13. emt (WTSE,10)3 
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de pee 

2 

3 Xsyserr(3X) for RSX - does nothing. 
4 */ 

P) 

6 static char xsysmsg[] = "unspecified error"$ 
i 

8 char *xsyserr() 

9 
i0 { 

11 


12 return( xsysmsg )3 
13 } 
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1 /* 
2 * filename: XTERM.C 
30 
4 
5 #include <rsxos.h> 
6 
7 +#define XECHO 1 
8 #define XLINE EDIT 2 
9 #define XOFF STERM 0 
10 #define XON STERM 1 
11 #define TC NEC 047 
12 #define TC BIN 065 
13. #define TTYEFN 1 
14 
15 extern int ttylun; 
16 extern int ttyraw; 
17 extern int ttyecho;3 
18 
19 int (* ttyhndlr)() = 03 /* pointer to user handler routine */ 
20 extern int astty()3 /* AST routine to service unsolicated “C */ 
21 
22 struct term char{ 
23 unsigned char name} /* option or characteristics */ 
24 unsigned char value}3 /* setting */ 
25 3 
26 
27 struct iosb { 
28 unsigned char cc} 
29 unsigned char lc3 
30 unsigned short nread}3 
31 }5 
32 
33 xsetterm(option, on off) 
34 int option; 7 /* XECHO or XLINE EDIT */ 
35 int on off; /* == on 3} O == off * / 
36 { 
37 int rval = 03 
38 struct iosb iosb3 
39 struct term char t_ char} 
40 
41 t char.name = ( option == XECHO ) ? TC NEC : TC BIN 3 
42 t_char.value = !on off; 
43 if(t char.name == TC NEC) 
44 ttyemt( SF SMC, ttylun, &iosb, &t char, sizeof (t char)); 
45 if(option == XLINE EDIT) { 
46 rval = !ttyraw3 
47 ttyraw = !on off3 
48 
49 else { 
50 rval = ttyecho3 
51 ttyecho = on off; 
52 } 
53 return ( rval )3 
54 } 
55 


56 xrestore term() 
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{ 


} 


xsetterm( XECHO, XON STERM); /* set echo 


ate 
a 


xsetterm( XLINE EDIT, XON STERM); /* set interactive mode 


xint_term(handler) 
int (*handler)()3 


{ 


struct iosb iosb3 
int rval3 


_ttyhndlr = handler; 
/* 
rval = ttyemt(QIO, IO ATA, ttylun, 0, &iosb, 0, 
0, 0, astty, 0, 0, 0); 
* / 


rval = 03 
return ( rval )3 


xraw term( handler ) 


int (*handler)()3 


{ 


int rval; 


xint term( handler ); 
rval = xsetterm( XECHO, XOFF STERM ); 
if ( rval < 0 ) 


rval 


return( rval )3 


} 
= xsetterm( XLINE EDIT, XOFF STERM )3 


if ( rval < 0 ) 


xsetterm( XECHO, XON STERM )3 
return( rval ); 


} 


return( 0 )3 


ate / 
ras 
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#include <rsxos.h> 
long xtime() 
int buf[8]; 


emt(GTIM, buf )3 


xtime.c Page l 


we 
PAY 


word 
word 
word 
word 
word 
word 


ate 
AY 


return parm 


ME WHr © 


ee ee ee ee ee ee 


ee 


year 
month 
day 
hour 
min 
sec 


return( ((buf[2]*24 + buf[3])*60 + buf[4])*60 + buf[5] 


} 


) 
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ate 
ray 


Save code space, at the expense of time by providing a common 
routine to translate exos open mode flags to RSX mode and types. 
x / 

#include <xerrno.h> 

#include <xstdio.h> 

#define FO RD 01 

#define FO WRT 016 

#define FO APD 0106 

#include <xspecial.h> 


xtranmode( mode, ioflag ) 


register int mode}3 


int *“ioflag3 /* flag to go into xiob structure */ 
int rmode3 

/* 

Translate mode to RSX open modes. 

*/ 


if( mode & XFWRITE ) 


if( mode & XFREAD ) 
*ioflag = XIORW | XPrimary; 
else 
*ioflag = XIOWRT; 
if( mode & XFAPPEND ) 
rmode = FO APD; 
else rmode = FO WRT; 


else if( mode & XFREAD ) 

{ 

if( mode & (XFAPPEND | XFCREAT | XFTRUNC)) 
{ 
xperror( XEINVAL, "read and other flags" )3 
return( XEINVAL )3 
} 

*ioflag = XIOREAD | XPrimary;3 

rmode = FO RD; 


3 
{ 


xperror( XEINVAL, "not read or write" )3 
return( XEINVAL ); 


else 


return( rmode )3 


} 
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[* 
* filename: XTTY.C 
se / 


#include <xstdio.h> 
#include <xspecial.h> 
#include <xerrno.h> 
#include <rsxos.h> 

10 #include <fcs.h> 


WO OoOn DW Df Wh Fe 


12 extern xttyread(); 
13. extern xttywrite();3 
14 extern xttyclose(); 


16 extern struct  rcb _rebl]; 
17 #define TTYEFN 1 
18 #define CNTRLZ 0366 


19 

20 

21 int ttylun = 53 /* lun associated with the TI: */ 
22 int ttyraw = 03 /* 1 == raw 0 == line edit */ 

23 int ttyecho = 03 /* 1 == echo on == echo off */ 
24 

25  xttyopen( mode) 

26 register int mode3 

27 

28 int exosfd3 

29 int rmode3 

30 int ioflag; 

31 register XFILE *file; 

32 register struct rcb *sysid = rcb$3 

33 int Ls i. = 

34 

35. /* 

36 Translate mode to Rsx mode and type. 

37 rie 


38 rmode = xtranmode( mode, &ioflag); 
39 if ( rmode < 0 ) 


40 return( rmode )3 

41 for( i=03; i < XNFILE; ++i, ++sysid ) 

42 if( sysid->flags & RFREE ) 

43 break; 

44 if€ i >= XNFILE ) 

45 return XEMFILE3 /* Too many files open */ 
46 sysid->flags = RUSED; 

47 sysid->rlun = ttylun; /* set LUN OF TI: */ 
48 exosfd = xnewod()3 /* get a free file descriptor */ 
49 if( exosfd < 0 ) 

50 return( exosfd )3 


51 file = & xioblexosfd]; 

52 file-> file = exosfd3 

53 file-> flag |= ioflag; 

54 file-> sys id = sysid; 

55 file-> read = xttyread}; 
56 file-> write = xttywrite; 
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57 file~> close = xttyclose; 
58 return( exosfd )3 
59} 


61 xttyclose( sysid ) 

62 register struct rcb *sysid3 
63 { 7 

64 return(0)$3 

65 /* its a null procedure */ 
66 } 


68 extern struct ttybuf ttybuf; 


70 xttyread(sysid, buf, len) 

71 register struct rcb *sysid; 
72 char *buf; 7 

73 int len; 


74 { 

75 int ret3 

76 struct iosb iosb;3 

77 int lun = sysid->rlun; 

78 int io fun = IO RVB; 

79 

80 if(ttyraw) { 

81 /* in raw mode read 1 character */ 

82 len = 13 

83 io fun |= TF RAL; 

84 ret = ttyemt(io fun,lun,&iosb,buf,len) 3 

85 return(ret)3 

86 } 

87 else { 

88 if(ttybuf.tsize == 0) { 

89 ret = ttyemt(io fun,lun,&iosb,ttybuf.linetty,132); 
90 if(ret < 0) 

91 return(ret)3 

92 if ({int) iosb.cc == CNTRLZ) { 

93 xstdin-> flag |= XIOEOF; 

94 return(0)3 

95 } 

96 ttyemt(IO WVB, lun, &iosb, "\n", 1); 

97 a /* give 1f after reading a line */ 
98 if ( ret >= 0 ) { 

99 if( sysid->flags & DBLBUF ) /* file is used for network */ 
100 ttybuf.linettyLret++] = '\r'; 

101 ttybuf.linettylrett++] = '\n'; 

102 ttybuf.cur pos = ttybuf.linetty; 

103 ttybuf.tsize = ret} 

104 } 

105 } 

106 ret = (len > ttybuf.tsize) ? ttybuf.tsize : len; 
107 xbcopy(ttybuf.cur pos,buf,ret)3 

108 if(ttybuf.tsize > ret) { 

109 ttybuf.tsize -= ret; 

110 ttybuf.cur pos += ret; 

lll } 


112 else { 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
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ttybuf.tsize = 03 
ttybuf.cur pos = 


} 


return ( ret )3 


ttybuf.linetty; 


* Objective of this function is to process different type of error resulting 
* from a call to the driver via QIO ( or emt call in 'C' ) call. A QIO 
* executive directive call reports error in two different ways through the 


* DSW ( directive status word ) and also in the I0 statusblock. 


Again in the 


* IOSB it is divided into two parts one device specific and the other generic. 
* The generic and the dsw are returned to the caller after shifting it by -512 
* and the device specific code is just sign changed. If all is fine then an 


* non zero value is returned. 


int ttyemt(cmd,lun,iosb,pl,p2) 
unsigned short cmd, lun; 
struct iosb *iosb}3 
unsigned short pl, p23 
{ 


int dsw3 


dsw = 
if ( dsw <0 ) 

return ( dsw - 512 )3 
else 

return ( iosb->nread )3 


emt (QIOW, cmd, lun, TTYEFN, iosb, 0, pl, p2, 0, 0, 0, 0); 


/* directive error */ 
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1 /* 

2 

3  Xunlink for RSX. 

4 */ 

5 #include <xspecial.h> 

6 #include <xgenlib.h> 

7 

8 

9 xunlink( name, special ) 
10 


ll char *“name3 
12 int special; 


14 char buf[MXNAMELEN +1]; 
15 int rval; 

16 int ver = 03 

17 char *p = name; 

18 char cmdlin[CMDSIZE]; 


20 rval = xmodname( &name, special, buf, sizeof(buf) )3 
21 if(rval<0) 


22 return(rval)3 

23 while( *pt+ ) 

24 if( *p == ';'){ 

25 ver = 13 

26 break; 

27 } 

28 if(ver) 

29 mkcmd(cmdlin, "PIP ", name, "/DE/NM", 0O )3 

30 else 

31 mkcmd(cmdlin, "PIP ", name, "30", "/DE/NM", 0 ); 


32 return(cmdcall(cmdlin) )3 
33} 
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; 
3 FILENAME: ASCBIN.MAC 
; 
; 
sASCPP: --> convert ascii dir string to binary uic. 
; 
: ascpp(pstr, puic) 
3 char *pstr;3 /* INPUT */ 
: int *puic3 /*OUTPUT */ 
; 
~TITLE ASCBIN 
-IDENT /01/ 
C$SPRT=0 
.PSECT CSTEXT,I,RO 
ASCPP:: 3 global reference label 
~IF DF CSSPRT 
JSR R5,CSSAV 3 make it 'C' callable 
MOV R5,-(SP) 3; save C frame pointer 
MOV 4(R5),R2 ; address of string to be converted 
MOV 6(R5),R3 3; address of uic 
- ENDC 
CALL - ASCPP ; system lib routine to convert string 
3 to binary uic. 
CLR RO 3 return status 
BCC RTN , 
MOV #-1,RO0 $ 
JMP RIN 
3 PPASC: --> Convert binary uic to ascii dir string 
; 
; ppasc(psrt, puic) 
; char *pstr3 /*OUTPUT */ 
; int “*puic$ /* INPUT */ 
PPASC:: 3; global reference label 
.IF DF C$SPRT 
JSR R5,CSSAV ; make it 'C' callable 
MOV R5,-(SP) ; save C frame pointer 
MOV 4(R5),R2 ; address of string to be return 
MOV 6(R5),R3 3; address of uic to be converted 
- ENDC 
MOV #1,R4 ; control code --- 
; bit 0 is 1 
$ bit. 1 is 0 
CALL -PPASC ; system lib routine to convert 
; bin uic to string dir 
CLR RO ; return status 
BCC BIN 
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57 MOV #-1,R0 ; 

58 BIN: 

59 RIN: 

60 .IF DF CS$SPRT 

61 

62 MOV (SP)+,R5 ; adjust frame pointer 
63 JMP CSRET $ return to caller 
64 

65 ~IFF 

66 

67 RETURN 

68 

69 ~ENDC 

70 

71 

72 .PSECT CSTEXT,1I,RO 

73 - EVEN 


74 - END 
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1 
2°. 
3 
4 $5 ASTLCONN: --> This is an ast service routine corresponds to directive 
5 3 SREX$. It clean up the stack and calls lostconn to perform 
6 3 abnormal termination of task and then exits. 
7 3 
8 
9 eTITLE ASTLCO 
10 -IDENT /01/ 
14 »MACRO SAVE 
12 
13 MOV RO,-(SP) 
14 MOV R1,-(SP) 
15 MOV R2,-(SP) 
16 MOV R3,-(SP) 
17 MOV R4,-(SP) 
18 MOV R5,-(SP) 
19 
20 « ENDM 
21 
22 »-MACRO UNSAVE 
23 
24 MOV (SP)+,R5 
25 MOV (SP)+,R4 
26 MOV (SP)+,R3 
27 MOV (SP)+,R2 
28 MOV (SP)+,R1 
29 MOV (SP)+,RO0 
30 
31 « ENDM 
32 
33 .MCALL ASTX$S,DSARSS,SETFSS 
34 .PSECT CSTEXT,I,RO 
35 3 
36  3ASTLCO:: 
af 3 -MCALL ASTXSS 
38 5 
39 5 SAVE 3; save all registers 
40 3 
41 $ CALL LOSTPEER ; 
42 3 CALL XEXIT 3; close all the files. 
43 3 
44 3 UNSAVE 3 unsave all registered 
45 3 
46 3 MOV (SP)+,(SP)+ ; clean up stack 
47 3 ASTX$S 3 ast service exit. 
48 33 
49 
50 
51 .ASTRS:: 
52 SAVE ; save all registers 
53 MOV 14(SP),-(SP) 3 get iosb address as first parameter 
54 JSR PC,ASTRSELECT ; call ast-select service routine. 
55 TST (SP)+ ; pop off parameter 
56 UNSAVE 3 unsave all registered 
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-ASTWS:: 


TST (SP)+ 

ASTX$S 

SAVE 

MOVB 14(SP),-(SP) 
JSR PC, ASTWSELECT 
TST (SP)+ 

UNSAVE 

TST (SP)+ 

ASTX$S 


.PSECT C$TEXT,I,RO 
. EVEN 

.PSECT CSDATA,D,RW 
. EVEN 

END 


we we 


we we we we 


we 


pop off stack for ASTXSS 
exit from AST routine 


save all registers 

push char as parameter for trstat 
call ast-select service routine. 
pop off parameter 


pop off stack for ASTX$S 
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1 
2 
3 5 
4 3 FILENAME: ASTTY.MAC 
5 3 
6 $ This is an ast service routine corresponds to int term 
‘oe routine( QIO IO ATA ). It calls the user handler to 
8 3 process the char “C, not by MCR. 
9 $3 
10 
ll epsect c$text,i,ro 
12 
13 etitle .astty 
14 .globl .TTYHN 
15 
16 e-MCALL ASTXSS 
17 .ASTTY:: 
18 MOV RO,-(SP) 3 save RO 
19 MOV R1,-(SP) 3; save Rl 
20 MOV R2,-(SP) 3 save R2 
21 MOV R3,-(SP) 3 save R3 
22 MOV R4,-(SP) 3; save R4 
23 MOV R5,-(SP) 3; save R5 
24 JSR PC,@.TTYHN ; call handler to process interrupt 
25 MOV (SP)+,R5 3; pop off R5 
26 MOV (SP)+,R4 3 pop off R4 
27 MOV (SP)+,R3 3; pop off R3 
28 MOV (SP)+,R2 3; pop off R2 
29 MOV (SP)+,R1 ; pop off Rl 
30 MOV (SP)+,R0 ; pop off RO 
31 TST (SP)+ ; pop off stack for ast 
32 ASTXSS 3; exit from AST routine 
33 


34 - END 
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1 3 
2 3 FILENAME CHDR 
3 3 
4 3 This file contains start & end entry points 
> 3 
6 
7 elLITLE CHDR 
8 -MCALL FSRSZ$,GMCRS$,DIRS ,gtsk$s,wtse$s,spwn$s 
9 .PSECT CSDATA,D,RW 
10 GMCR: 
ll GMCRS$ 
12 FSRSZ: 
13 FSRSZ$ 0 
14 sbuf: 
i? aa eblkw 16. ; used to store task info. 
16 3cmd: 
1 ae eascii /REA / 
18 3tsk: 
19 3 eascii / / 
20 3lun: 
21 3 eascii /  Ssy0:/ 
22 scemdl = .-cmd 
2s 5 -even 
24 3scli: 
25° 3 -rad50 /MCR.../ 
26 .MCALL EXIT$S,ALUNS$S 
27 .PSECT CSTEXT,I,RO 
28 START: 
29°. 
30 3 make sure task's default device is same as user's login device 
Sh: 3 
B21 -5 gtsk$s #buf 3 get task name 
3a bcs exit ; if CS error 
34 3 mov #tsk,r0 ; address of first three byte of task-name 
30. “5 mov buf,rl ; first word of task-name 
36 3 call ScSta $ convert it to ascii 
i i bes exit ; if cs error 
38 OS mov #tsk+3,r0 ; next three byte of task-name 
39 $3 mMOv buf+2,rl ; second word of task-name 
40 3; eall ScSta 3 convert rad50 to ascii 
al +s bes exit ; if cs error 
42 $3 mov #4,r3 ; # times REA to be spawned 
43 3 3AGN: 
44 3 mov r3,r0 ; LUN # 
Ao. 36 add #60, r0 ; make it char 
46 5 movb r0,luntl ; 
47 $ spwn$s #cli,,,,,#1,,,#cmd,#cmdl ; spawn REA 
48 3 bcs exit 3; if cs error 
49 $3 wtse$s_ #1 ; wait for task to complete 
50. 5 sob r3,agn 3; Lopp 
51: 4 
52 $ get mcr command line 
Da: * 35 
54 DIRS ##GMCR get command line 


; 
a5 MOV SDSW,R1 ; get # of char read or error 
56 BLT ERR 3; error 
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CONT 


CLRB GMCR+2(R1) 


MOV #GMCR+2 ,-(SP) 
CALL CMAIN 

TST (SP)+ 

BR EXIT 

CMP #IE.AST,$DSW 
BEQ CONT 

EXITS$S 


~END START 


clear terminator char in command line 
push address of cli buffer 


call start entry points 
pop the parameter 


check no command line 
yes 


exit 


Apr 30 22:57 1986 cmdcall.mac Page 1 


WON DiS WwDH re 


etitle cmdcall - spawn MCR command line 
CSSPRT = 0 
emcall gtsk$s,spwn$s,wtse$s 
;pwlog = 22 ; offset of login UIC in password structure 


epsect c$data,d,rw 
desc: eblkw 25 
uic: -word 0 
task: eblkw 2s 
buf: eblkw 16. 

epsect c$text,i,ro 
cmdcall:: 

~IF DF CSSPRT 


string descriptor 

UIC 

task name 

used as task infor block and emit status block 


wee we woe we 


jsr r5,c$sav ; make it 'C' callable 

mov r5,-(sp) ; save frame pointer 

mov 4(r5),r4 ; r4 - pointer to command line 

- ENDC 

mov pw,r0 ; set r0 to address of login UIC 
mov r0,desct2 3; put login UIC address in descriptor also 
mov r0,-(sp) 3; get string length 

jsr pce,xstrle ; get string length 

tst (sp)+ 3; pop the argument 

mov #desc,r2 3; r2 get string descriptor address 
mov r0, (r2) $ store in descriptor 

mov #uic,r3 r3 has address of binary UIC 


call -ascpp convert UIC 

gtsk$s #buf get task information 
mov G.TSTN+buf, task 3 save task name 

mov G.TSTIN+buf+2, task+2 5 save second half 


we we we 


now check if the command to be spawned is UFD 


we we 


mov r4, r0 ; rO has address of command line string 
mov #1, rl $ accept period as valid RADS5O character 
call Scat5 $ convert to RAD50 

cmp R1,#°RUFD $ is it UFD? 

beq 10$ 3 yes 

cmp task,#°RFTD ; am I a FTP server? 

bne 10$ ; no, must be a client 


I am a FTP server and command to be spawned is not UFD 


we we wt 


add #3, r4 ; command starts at 3 characters away 
mov #°RXDR, task ; task name is XDROOn 
br 20$ 


This is for FTP client or if command is UFD 


— we we we 


mov #°RMCR, task 
mov #°R..., task+2 $3 task name is MCR... 


’ 
H now spawn the task 
’ 
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mov 
jsr 
tst 
spwn$s 
bcs 
wtse$s 
cmp 
bne 
clr 

br 


mov 
sub 
br 


mov 


IF 
mov 
jmp 
LFF 
RETURN 
-ENDC 
. END 
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r4, -(sp) 


pe, xstrle 


(sp)+ 


3 get length of command line 


° 
b 


reset stack 


#task,,,uictl,uic,#1,,#buf,r4,r0 


90$ 


buf, r0 
#512., r0 
99$ 


Sdsw,r0 
DF CS$SPRT 


(sp)+, r5 
c$ret 


we we we we we 


spawn error 
wait for task complete 
is task OK? 

no~ 

yes, return 0 


error in task exit 
return (esb[0] - 512) 


return (dsw) 


adjust frame pointer 


9 


spawn task 
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i -3 
2 3 FILENAME DBLAST.MAC 
3 3 
4 3 This file contain ast service entry points for i/o 
5 $3 RASTDIO AST for read 
6 3 WASTDIO AST for write 
7 3 ASTSIO AST for socket i/o 
8 3 
9 
10 -TITLE DBLAST 
11 -IDENT /01/ 
12 ; 
13. 3 MODULE ASTDIO 
14 3 
15 3 AST SERVICE FOR READ & WRITE 
16 ; 
17 
18 -MACRO SAVE 
19 MOV RO,-(SP) 
20 MOV R1,-(SP) 
21 MOV R2,-(SP) 
22 MOV R3,-(SP) 
23 MOV R4,-(SP) 
24 MOV R5,-(SP) 
25 . ENDM 
26 -MACRO UNSAVE 
27 MOV (SP)+,R5 
28 MOV (SP)+,R4 
29 MOV (SP)+,R3 
30 MOV (SP)+,R2 
31 MOV (SP)+,R1 
32 MOV (SP)+,RO0 
33 . ENDM 
34° -MCALL ASTXS$S 
35 -PSECT CS$TEXT,I,RO 
36 RASTDIO?:: 
37 SAVE 3; SAVE ALL REGISTERS 
38 MOV HBUF+10,R0 3 get address of xiob 
39 MOV 20(RO) ,RO ; get address of .rcb 
40 MOV 20(RO),RO 3; get address of fdb 
41 CMP F.BKVB(RO),F.EFBK(RO) 3; IT IT LAST BLOCK 
42 BGT SET ; IF GT YES 
43 CMP F.BKVB+2(RO),F.EFBK+2(RO)3; IS IT LAST BLOCK 
44 BGT SET . IE Cr VES 
45 BR NEXT 
46 SET: 
47 MOV 14(SP),R1 3; GET ADDRESS OF IOSB 
48 MOV F.FFBY(RO),2(R1) 3; # OF BYTES READ 
49 NEXT: 
50 MOV 14(SP),-(SP) ; PUSH IOSB ADDRESS 
51 JSR PC,DSTAT ; FILL UP THE RETURN STATUS 
52 TST (SP)+ ; POP THE PARAMETER 
53 UNSAVE 3; UNSAVE ALL THE REGISTERS 
54 TST (SP)+ ; POP THE STACK FOR ASTX$S 
55 ASTXS$S ; RETURN 


56 WASTDIO:: 
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57 SAVE 5 SAVE ALL REGISTERS 

58 MOV HBUF+10,R0 ; get address of xiob 

59 MOV 20(RO),RO 3 get address of .rcb 

60 MOV 20(RO),RO ; get address of fdb 

61 JMP NEXT ; 

62 

63 

64 

65 3 

66 3; MODULE ASTSIO 

67 3 

68 3 AST SERVICE FOR SOCKET READ/WRITE 

69 3 

70 

71 .PSECT CS$TEXT,I,RO 

72 ASTSIO:: 

73 SAVE ; SAVE ALL REGISTERS 

74 MOV 14(SP),-(SP) 3; PUSH ADDRESS OF IOSB 

75 JSR PC,NSTAT ; FILL UP THE RETURN STATUS 
76 TST (SP)+ 3; POP THE PARAMETER 

77 UNSAVE 3; UNSAVE ALL THE REGISTERS 
78 TST (SP)+ ; POP THE STACK FOR ASTX$S 
79 ASTX$S 

80 


81 - END 
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etitle dummy 

getenv:: 

gethen:: 

getnbas: 

getnbn:: 

getnen:: 

getpen:: 

getsbp:: 

getsens: 

10 gpbnam:: 

11 gpbnum:: 

12 rts pe 
13 end 


wo MmnNH nM PWD Fe 
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1 3 

2 3 filename: ENVAST.MAC 

3 3 

4 etitle ENVAST 

5 «MACRO SAVE 

6 

7 MOV RO,-(SP) 

8 MOV R1,-(SP) 

9 MOV R2,-(SP) 

10 MOV R3,-(SP) 

11 MOV R4,-(SP) 

12 MOV R5,-(SP) 

13 

14 - ENDM 

15 

16 eMACRO UNSAVE 

17 

18 MOV (SP)+,R5 

19 MOV (SP)+,R4 
20 MOV (SP)+,R3 

21 MOV (SP)+,R2 
22 MOV (SP)+,R1 
23 MOV (SP)+,RO 
24 
25 - ENDM 
26 
27 -MCALL RCVD$S,SETF$S,ASTX$S 

28 

29 AST.RE:: 

30 SAVE 3 save all registers 
31 AGAIN: 
32 RCVDSS-__y#msge $ recieve pkt from task 
33 CMP #IS.SUC,SDSW ;check for success 
34 BEQ 10$ ; If EQ YES 
35 BR EXT 3 no pkt. return 
36 6108: 

37 SETF$S #2 

38 BR AGAIN ; go for next pkt. 
39 EXT: 
40 UNSAVE $ unsave all registered 
41 ASTXSS 3; exit from AST routine 
42 


43 - END 
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1 3 
2 3 FILENAME FIOMAC .MAC 
3 3 
4 This file contains i/o related entry points. 
5 3 CREATE CREATE 
6 3 .-OPEN OPEN 
7 3 «READ READ 
8 3; ..WRITE WRITE 
9 3; .-RWAIT WAIT for read 
10 3 ..WWAIT WAIT for write 
11 $5 ..CLOSE CLOSE 
12 4 
13 
14 eTITLE FIOMAC 
15 -IDENT /01/ 
16 
17 .MCALL FSRSZ$,OPENS$, READS , WRITES , WAITS , CLOSES, FDBDF$ , FDATS$R 
18 5 
19 $ MODULE CREATE 
20 3 
Bale “25 INPUT parameters 
22 3 
23 3 pl fdb 
24 3 p2 type 0 -- ascii type otherwise binary 
25. °<3 
26 5 
27 
28 .PSECT CS$DATA,D,RW 
29 
30 
31 CNTG = =5 
32 ALLOC = =) 
33 
34 .PSECT CS$TEXT,I,RO 
35 CREATE: : 
36 JSR R5,CSSAV 3; make it 'C' callable 
37 CMP 6(R5),#0 ; check file-type ascii/binary 
38 BEQ ASC ; if EQ ASCII 
39 BIN: ; BINARY 
40 MOV #R.FIX,R1 3; RTYPE AS FIXED LENGTH RECORD 
41 CLR R2 3; RATT AS NO IMPLIED CR 
42 BR FDAT 
43 ASC: 
44 MOV #R.VAR,R1I 3 RTYP AS VARIABLE LENGTH RECORD 
45 MOV #FD.CR,R2 ; RATT AS IMPLIED CR 
46 FDAT: 
47 FDAT$SR 4(R5),R1,R2,6(R5),#CNTG, #ALLOC 
48 3 INITIALIZE ATTRIBUTE SECTION OF FDB 
49 JMP CSRET 3; JUMP TO RETURN 
50 
51 
52 
53 
MODULE OPEN 


INPUT PARAMETERS 


w 
gS 
we we we we 
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we we we we we we 


- OPEN: : 


OPENS 


EOPEN: 


ee we 28 WS We we we wh we St HE 


BLKSIZE=512. 
-PSECT 


MODULE 


« eREAD3 3 


ERIO: 


CKEOPF 


we we 


MODULE 


-PSECT 


JSR 


CLR 
JMP 


MOV 
MOVB 


JMP 


INPUT PARAMETERS 


JSR 


READS 


BCS 


MOV 


JMP 


MOV 


MOVB 


SUB 
JMP 


MOV 


CMPB 


BNE 
CLR 
JMP 


PI 
PZ 
P3 
P4 


CSTEXT, I 


R5,C$SAV 


4(R5), 6( 
RO 
CSRET 


4(R5),R1 


F.ERR(R1 
CSRET 


READ 


FDB 

MODE OF FILE 

LUN 

DATA SET POINTER 


»RO 


3; MAKE IT 'C' CALLABLE 
R5),10(R5),12(R5),,#FD.RWM,, ,EOPEN 

3; RETURN VALUE 

3; JUMP TO RETURN 


GET ADDRESS OF FDB 
ERROR CODE 
JUMP TO RETURN 


),RO 


we we we 


Pl FDB 

P2 BLOCK BUFFER ADDRESS 

P3 BKEF 

P4 ADDRESS OF IOSB 

P5 ADDRESS OF AST 

C$TEXT,1I,RO 

R5,CSSAV ; MAKE IT 'C' CALLABLE 
4(R5) ,6(R5),#BLKSIZE,,10(R5),12(R5),14(R5) , CKEOF 
CKEOF ; CHECK FOR END OF FILE 
#1,R0 3; RETURN VALUE 

CSRET ; JUMP TO RETURN 
4(R5),R1 3; GET ADDRESS OF FDB 
F.ERR(R1),RO ; ERROR CODE 

#512.,R0 ; MAKE ERROR AS RSX 
CSRET ; JUMP TO RETURN 
4(R5),R1 3; GET ADDRESS OF FDB 
F.ERR(R1),#1IE.EOF 3 CHECK EOF 

ERIO ; IF NE ERROR 

RO 3; RETURN VALUE 

CS$RET ; JUMP TO RETURN 
WRITE 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
132 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


we we we we Oe 


. WRITES 


MODULE 


we we we we we tte SO Oe SO 


INPUT PARAMETERS 


SAME AS 'READ' 


.PSECT C$TEXT,1I,RO 


JSR 
WRITES 
BCS 
MOV 
JMP 


R5,CSSAV ; MAKE IT 'C' CALLABLE 
4(R5),6(R5),#BLKSIZE,,10(R5),12(R5),14(R5),ERIO 


CKEOF 
#1,R0 
CSRET 


we we we 


RWAIT 


INPUT PARAMETERS 


CHECK FOR EOF 
RETURN VALUE 
JUMP TO RETURN 


Pl fdb 
P2 address of iosb 
-PSECT CSTEXT,I,RO 
. RWAIT:: 
JSR R5,CSSAV 3; MAKE IT 'C' CALLABLE 
WAITS 4(R5),,,ERW 
CMPB @6(R5),#0 ; CHECK ERROR 
BLT ERW ; IF LT ERROR WHILE READ 
; SET NO. OF BYTES READ 
MOV 4(R5),R1 ; GET FDB ADDRESS 
CMP F.BKVB(R1),F.EFBK(R1) 3; IS IT LAST BLOCK 
BGT SETIO 3; IF GT YES 
CMP F.BKVB+2(R1),F.EFBK+2(R1)3; IS IT LAST BLOCK 
BGT SETIO 3; IF GT YES 
JMP C$RET ; JUMP TO RETURN 
SETIO: 
MOV 6(R5),R2 3; get address of iosb 
MOV F.FFBY(R1),2(R2) 3; GET FIRST FREE BYTE IN BLOCK 
JMP CSRET ; JUMP TO RETURN 
ERW: 
MOV 6(R5),R1 3; GET ADDRESS OF IOSB 
CMPB (R1),#IE.EOF 3; eof 
BEQ EOF ' 
MOVB (R1),2(R1) 3; GET I/O ERROR CODE 
SUB #512.,2(R1) ; MAKE ERROR AS 'RSX' 
JMP CSRET ; JUMP TO RETURN 
EOF: 
CLR 2(R1) $ return value 
JMP CSRET 3; jump to return 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 -PSECT CS$TEXT,I,RO 

182 

183 ..WWAIT:: 

184 JSR R5,CSSAV 3; MAKE IT 'C' CALLABLE 

185 WAITS 4(R5),,,ERW 

186 CMPB @6(R5),#0 ; CHECK ERROR 

187 BLT ERW ; IF LT YES, ERROR WHILE WRITE 
188 JMP CSRET ; JUMP TO RETURN 

189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 -PSECT CS$TEXT,I,RO 

203 ..CLOSE:: 

204 JSR R5,CS$SAV ; MAKE IT 'C' CALLABLE 
205 CLOSE$ 4(R5) 

206 JMP CSRET ; JUMP TO RETURN 

207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223  WMREC:: 

224 JSR R5,CSSAV 3; MAKE IT 'C' CALLABLE 


MODULE WWAIT 


WAIT FOR DISK WRITE 


INPUT PARAMETERS 


Pl FDB 
P2 ADDRESS OF IOSB 


we we we we we we we we we we 


MODULE CLOSE 


INPUT PARAMETERS 


Pl fdb 


we we we we (8 HOH Be NO 


MODULE WMREC 
Adjust FDB 
INPUT PARAMETERS 
Pl fdb 


P2 max record size 
P3 first free byte in last block 


we we OG OF CSF BH (OY (OP NBS OR we 
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225 
226 
227 
228 
229 
230 
231 
232 
233 
234 


NEXT1: 


MOV 
MOV 
MOV 
CMP 
BEQ 
DEC 


JMP 
. END 


4(R5),R1 
6(R5),F.RSIZ(R1) 
10(R5),F.FFBY(R1) 
10(R5),#0 

NEXT 1 
F.EFBK+2(R1) 


CSRET 


we we we we we we 


GET fdb 

set max rec size 

set first freee byte 

check first free byte is 0 
If EQ yes 

end of block number 


JUMP TO RETURN 
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WON DULL WH rE 


FILENAME LIBMAC .MAC 


we we wee we 


.TITLE LIBMAC 
.MCALL ASTX$S ,EXITS$S 
.PSECT CS$TEXT,I,RO 


this routine is the AST service routine specified in the catchoob() 
library call. After it is invoked it simply passes control to another 
library routine called lLibast() which selectively calls user specified 
handler. The address of the iosb being on top of the stack is automati- 
cally passed to the Llibstat routine. 


we we we WS ws we OS OO 


eASTCAS : 3 global referance 
JSR PC,LIBAST ; call library routine LIBSTAT 
TST (SP)+ ; pop off stack to adjust for the ASTX call 
ASTXSS 3 exit from ast routine 


SEXIT : exit from current task 


Se SOG We 


SEXIT:: EXITSS make an task exit 


we 


.PSECT CS$TEXT,I,RO 


- EVEN 
END 
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1 3; 

2 3 filename: MUXAST.MAC 
3 3 

4 -title MUXAST 

ae This file contains the two ast service routines that are 
6 35 called by the system when read is completed on either the network 
a or the terminal. These in turn call C routines that set the return 
B 4 status for the net read and net write "processes". 
9 3 

10 eMACRO SAVE 

11 

12 MOV RO,-(SP) 

13 MOV R1,-(SP) 

14 MOV R2,-(SP) 

15 MOV R3,-(SP) 

16 MOV R4,-(SP) 

17 MOV R5,-(SP) 

18 

19 «ENDM 

20 

21 e-MACRO UNSAVE 

22 

23 MOV (SP)+,R5 

24 MOV (SP)+,R4 

25 MOV (SP)+,R3 

26 MOV (SP)+,R2 

27 MOV (SP)+,R1 

28 MOV (SP)+,RO 

29 

30 - ENDM 

31 

32 .MCALL ASTX$S,DSAR$S,SETF$S 

33 

34 ASTRDI:: 

35 SAVE 3 save all registers 

36 MOV 14(SP),-(SP) 3 get iosb address as first parameter 

37 JSR PC,NRSTAT ; £111 up the return status 

38 TST (SP)+ ; pop off parameter 

39 UNSAVE $ unsave all registered 

40 TST (SP)+ 3; pop off stack for ASTX$S 

41 ASTXSS 3 exit from AST routine 

42 

43 ASTRD2:: 

44 SAVE ; save all registers 

45 MOVB 14(SP),-(SP) ; push char as parameter for trstat 

46 JSR PC,TRSTAT H 

47 TST (SP)+ ; pop off parameter 

48 UNSAVE 

49 TST (SP)+ ; pop off stack for ASTXS$S 
50 ASTX$S 

51 


32 «END 
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1 
2 3 FILENAME PARSE.MAC 
3 3 
4 $3 This routine parese the command string by using CSI$ specific 
a: 5 riutines. It parses the input command line and stores the 
6 3 return values in CSI control block, which may be directly used 
7 3 by File open routines. 
8 3 Following is format of command string: 
9 $3 dev:[g,m]filespec 
10 3 To parse the command string , it has three major function: 
Lis “3 i) Allocate CST control block 
12.3 ii) Syntax validation of command 
130. 3s iii) Semantic check 
14 3 
15 3 INPUT: 
16 3 parse(buf ,len) 
Lay v3 char “buf $3 
18 3 int len; 
19 3 
20 s;OUTPUT: 
24s 28 0 -- successful comletion 
22 3 relevant information in CSI control block 
23 3 l -- unsuccess . 
24 3 
25 
26 
27 
28 
29 -TITLE PARSE 
30 -IDENT /01/ 
31 CS$SPRT=0 
32 .PSECT CSDATA,D,RW 
33 .MCALL CSI$,CSI$1,CSI$2 
34 
35 CSI$ DEFS$G ; define CSI control block offsets 
36 3 and bit values globaaly. 
37 - EVEN 
38 CSI.BL:: 
39 ~-BLKB  C.SIZE ; allocate required storage 
40 
41 CSIBLK:: 
42 - BLKW 3 to access the CSI control block in 'C'. 
43 ~-PSECT CSTEXT,I,RO 
44 PARSE?: ; global refernce label 
45 .IF DF CS$SPRT 
46 
47 JSR R5,CSSAV ; make it 'C' callable 
48 MOV R5,-(SP) ; save C frame pointer 
49 MOV 4(R5),R2 3 get address of command string 
50 MOV 6(R5),R3 3; length of commnad string 
51 
52 - ENDC 
53 
54 MOV #CSI.BL,CSIBLK 3 store the address of CSI contorl block 
55 3; for accessing in 'C' code. 


56 CSI$1  #CSI.BL,R2,R3 
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ERR: 


RTN: 
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BCS ERR 
CS1$2 #CSI.BL,OUTPUT 
BCS ERR 


CLR RO 
JMP RIN 
MOV #-1,RO0 


-IF DF CSSPRT 


MOV (SP)+,R5 
JMP CS$RET 
.IFF 

RETURN 

. ENDC 


.PSECT CSDATA,D,RW 
. EVEN 

.PSECT CSTEXT,I,RO 
. EVEN 

. END 


we we we 


we we 


check for success 


check for success 
yes , return success. 


error code. 


adjust frame pointer 
return to caller 
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1 3 
2 3 FILENAME: RADIX .MAC 
3 3 
4 
5 3 RADIX: --> Converts array of 6 char into 2 word radix 50 format 
6 3 
7 
8 
9 -TITLE RADIX 
10 ~IDENT /01/ 
11 CS$SPRT=0 
12 .PSECT C$DATA,D,RW 
13. TMP: 
14 -WORD 0 
15 .PSECT CS$TEXT,I,RO 
16 RADIX:: 3 global refernce label 
17 .IF DF CSSPRT 
18 
19 JSR R5,CSSAV ; make it 'C' callable 
20 MOV R5,-(SP) ; save C frame pointer 
21 MOV 4(R5),RO ; address of first char 
22 
23 - ENDC 
24 
25 MOV #1,R1 ; '.' is a valid ascii char for conversion 
26 CALL SCAT5B 3 convert 3 ascii char to radix 50(consider ' ') 
27 BCS FAIL ; check for success 
28 MOV R1,TMP $ save converted value 
29 MOV #1,R1 3 '.' is a valid char(consider ' ' too as valid) 
30 CALL SCAT5B $ convert next 3 ascii char to radix 50 
31 BCS FAIL 3; check for success 
32 <5 MOV R1,R0 $ return value 
33 MOV TMP,RO $ return value 
34 JMP RIN 
35 FAIL: 
36 CLR RO 
37 CLR Rl 
38 RIN: 
39 .IF DF C$SPRT 
40 
41 MOV (SP)+,R5 ; adjust frame pointer 
42 JMP CSRET 3 return to caller 
43 
44 ~LTFF 
45 
46 RETURN 
47 
48 « ENDC 
49 
50 .PSECT CSDATA,D,RW 
51 - EVEN 
52 »PSECT CSTEXT,I,RO 
53 ~ EVEN 
54 
55 3 c5STA : 
56 $3 Converts l6bit rad50 value to ascii string 
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? 
3 INPUT 


@e ~ws 


we 


GCSTA?: 


pl = address of ascii string to 
p2 = 16 bit rad50 value 


»psect c$text,i,ro 


JSR R5,CSSAV 
MOV 4(R5),RO 
MOV 6(R5),R1 


CALL $C5TA 
JMP CS$RET 


-psect c$text,i,ro 
even 


- END 


be stored 


save registers 

get address of ascii string 

get 16 bit rad50 value 

call system lib routine to convert 
16 bit rad50 value to ascii str. 
unsave registers & return 


we we we we Be we 
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1 3 
2 3 FILENAME: XSETJMP .MAC 
3 3 
4 3 Set jmp & longjmp are only callabe from 'C' 
5 cs Floating point register's are not saved. 
6 3 
7 3 Environment: 
8 [aaaaeG | 
9 ; | Pc | 
10 3 [SSeae | 
ll 3; {Old FP | 
12 3 [SaesSe | 
13 3 | R4 | 
14 $ [Sass | 
15 3 | R3 | 
16 3 [seasons | 
17 3 | R2 
18 [eaeass | 
19; | | Scratch cell used by 'C' compiler 
20 $ ([SSse45> | 
21- % | FP | 
22 $3 [Soe | 
23:3 
24 
25 
26 TITLE XSETJMP 
27 IDENT /01/ 
28 
29 
30 .PSECT C$§TEXT,I,RO 
31 SETJMP:: 3; global reference label 
32 
33 JSR R5,CSSAV 3; make it 'C' callable 
34 MOV R5,-(SP) ; save C frame pointer 
35 MOV #0,-(SP) 3; PUSH DUMMY PARM. 
36 MOV #16.,-(SP) ; PUSH # OF BYTES TO ALLOCATE 
37 CALL XMALLOC ; 'C' RUN-TIME ALLOC ROUTINE 
38 3 ALLOCATE 'n' BYTES 
39 TST (SP)+ ; 
40 TST (SP)+ ; POP THE PARAMETER 
41 
42 TST RO 3; CHECK RETURN VALUE 
43 BEQ 205 5 IF EQ ALLOCATION FAILURE 
44 
45 MOV RO,@4(R5) ; STORE ADDRESS OF ENV. 
46 MOV #7,R3 3; WORD COUNT FOR LOOP 
47 MOV R5,R2 3 GET ADDRESS OF FP 
48 ADD #4,R2 3; GET HIGH ADDRESS OF CURRENT ENV. WHICH 
49 . ; IS TO BE SAVE 
50 10$: 
51 MOV -(R2),(RO)+ 
52 SOB R3,10$ ; LOOP 
53 
54 MOV #0,RO 3; SUCCESSFUL VALUE 
55 BR 305 3; JUMP TO RTN. 


56 208: 
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57 MOV #-1,R0 3; UNSUCCESSFUL VALUE 

58 3058: | 

59 MOV (SP)+,R5 3 adjust frame pointer 

60 JMP CSRET $ return to caller 

61 

62 

63 ~-PSECT C$TEXT,I,RO 

64 

65 XLONGJMP:: 

66 

67 JSR R5,CSSAV 3; make it 'C' callable 

68 MOV R5,-(SP) ; save C frame pointer 

69 

70 TST @4(R5) 3 CHECK ADDRESS OF ENV. 

71 BEQ 30$ ; IF EQ ADDRESS IS NULL 

72 MOV @4(R5),R1 3; GET ADDRESS OF ENV. IN REG 1 
73 MOV #7 ,R3 ; WORD COUNT 

74 2083 

75 MOV (R1)+,-(SP) 3; PUSH ENV. FROM HEAP TO STACK 
76 SOB R3,20$ ; LOOP FOR 7, TIMES. 

77 MOV SP,R2 ; REMEMBER THE ADDRESS OF SAVED ENV. 
78 MOV #0,-(SP) 3; DUMMY PARM. 

79 MOV @4(R5),-(SP) 3; PUSH ADDRESS OF ENV. 

80 CALL XFREE 3; 'C' RUN-TIME ROUTINE TO DEALLOCATE 
81 ; ROUTINE 

82 TST (SP)+ ; 

83 TST (SP)+ 3; POP THE PARAMETER 

84 

85 CLR @4(R5) ; CLEAR THE POINTER 

86 MOV (R2),R5 3; LOAD THE FRAME POINTER CORRESSPOND TO 
87 3; SETJMP. 

88 MOV R5,R1 : 

89 SUB #12,R1 3; LOAD THE LOW ADDRESS OF ENV. 
90 MOV #7 ,R3 ; #WORD COUNT 

91 258: 

92 MOV (R2)+,(R1)+ ; 

93 SOB R3,25$ ; LOOP 

94 

95 MOV #1,R0 ; RETURN VALUE 

96 BR 40$ 

97 305: 

98 MOV #-1,RO0 3; UNSUCCESSFUL RETURN VALUE 

99 40S: 
100 MOV (SP)+,R5 
101 JMP CSRET 
102 
103 ~PSECT CS$TEXT,I,RO 
104 . EVEN 
105 


106 - END 
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— 


FP OO ON DU fWNDN 


XSPAWN: : 


etitle 
epsect 


-MCALL 


jsr 
CLEF$S 
SETFSS 
jmp 


- END 
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xspawn 
c$text,i,ro 


CLEF$S,SETF$S 


R5,c$sav 
#50. 
#51. 
c$ret 


; clear efn 50 


e 


9 


set efn 51 to unstop MST 
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WON AMP WD 


wee we we wwe fe we 


TTYEFN 
CSSPRT 


we we w 


~RCB 
RLUN 
FLAGS 
DBLBUF 
BUF 

LEN 
BUFSIZE 
LOCBUF 


iosb: 

count: 
extra: 
local: 


etitle 


xttywri 
sysid 
buf 

len 


emcall 
~psect 


»psect 


xttywrite:: 


we we we 


f— we woe we 


~LlF DF 
jsr 
add 
- ENDC 
mov 
mov 
tst 
beq 


raw mod 


mov 
mov 
dir$ 
jsr 
br 


Non-raw 


mov 
add 
clr 
clr 
mov 
mov 
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xttywrite 


te(sysid, buf, Len) 

- address of RSX - control block 
- buffer address 6(r5) 

- buffer length 10(r5) 


qiow$,dir$ 
c$data,d,rw 


offsets used for variables 


BUFSIZE 


2 

0 

0 
I0.WVB,0,TTYEFN,,iosb 
c$text,i,ro 


CSSPRT 
r5,c$sav 
#LOCBUF, sp 


make it 'C' callable 
allocate local space on stack 


“ee we 


-RCB(r5),r0 $ get address of RCB 
RLUN(r0), iocal+Q.IOLU 3 save LUN 
ttyraw ; Is this write using raw mode 
10$ $ no- 
e 1/0 


BUF(r5), iocal+Q.IOPL 3 buffer address 
LEN(r5), iocal+Q.IOPL+2 3; buffer length 
#iocal ; directive call 


9 
pe, ret ; handle return value 
999$ $ return 
mode I/O 


r5, Q.I1OPLtiocal 

#LOCBUF, Q.IOPLtiocal 3 set up output buffer address 
count 3 clear byte count 

extra clear extra byte count 

LEN(r5), rl rl - number of bytes to output 

E54 -62 r2 - end of local buffer 


we we we w 
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57 add #-6, r2 ; adjust offset for buffer size 
58 mov BUF(r5), r3 ; r3 - pointer to input buffer 
59 mov r5 ,r4 ; r4 - pointer to local buffer 
60 add #LOCBUF, r4 ; adjust for offset 

61 1583 

62 tst rl 3 any more bytes to output 

63 beq 50$ 3; no 

64 dec gf ; decrement output count 

65 cmp r4, r2 ; check if end of local buffer reached? 
66 bne 20$ $ not yet 

67 $5 

68 3 reached end of local buffer 

69 3; 

70 mov #BUFSIZE, Q.IOPL+2+iocal 3 output buffer size 

71 dir$ #iocal $; output the buffer 

72 jsr pc,ret 

73 add r0,count 3 update output count 

74 mov r5, r4 3} reset pointer to local buffer 
75 add #LOCBUF, r4 

76 2083 

77 3 

78 3 stuff character into output buffer 

719 

80 3 mov ~RCB(r5),r0 ; get RCB address 

81 3 bit #DBLBUF ,FLAGS(r0)3; is buffer from network 

82 3; bne 305 3 if NE yes 

83 cmpb (v3), #12 ; is input a \n 

84 bne 30$ $; no- 

85 movb (r3)+, (r4)+ ; put LF CR into output buffer 
86 movb #15, (r4)+ 

87 inc extra $ increment extra character count 
88 br 15$ 3 try next character 

89 305: 

90 ; 

91 3 regular character 

92 $3 

93 movb (r3)+, (r4)+ 

94 br 15$ 

95 508: 

96 3 

97 3 finish with all the output processing, flush last buffer 
98 3; 

99 sub #LOCBUF, r4 3; calculate buffer size 
100 sub r5, r4 

101 mov r4, Q.IOPL+2+iocal ; set up the buffer size 
102 dirs #iocal 

103 jsr pe,ret $ process return value 
104 add rQ, count 

105 mov LEN(r5), rO 

106 add extra, r0 

107 cmp count, r0 ; are all characters sent out? 
108 bne 60$ 3; no- 

109 mov LEN(r5), count ; yes, return original length of buffer 
110 608: 

111 mov count, r0 $ return count 


112 999S: 


May 19 16:55 1986 xttywrite.mac Page 3 


113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 


ret: 


we we we 


100$: 


-IF DF CSSPRT 
jmp c$ret 
~IFF 

RETURN 

« ENDC 


Handle return value from QIO call 


bcs 100$ 

mov iosbt+2, r0 
rts pce 

mov $dsw, rO 
rts pc 


» END 


r 
9 
. 
? 


’ 


error 
no, return number of bytes read 


error, return DSW 
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/* 
@(#)arp.h 1.1 3/26/85 


Include files for the ARP program on RSX. 
*/ 


#include <xgenlib.h> 

#include <xspecial.h> 

#include <in.h> 

10 #include <socket.h> 

11 #include <brdioctl.h> 

12 #include <exiocmd.h> 

13. #include <types.h> 

14 #include <netdb.h> 

15 #include <hostarp.h> 

16 #define ether aton etr_ aton 
17. #define ether print etr print 


WO On Aim B WH Ee 
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WON HAUL WD 


. 
[* 


ate 
a“ 


ate 
ray 


ate 
rad 


filename: BRDIOCTL.H 


/ 


* This file defines all the equate symbol for the administrative 
device's ioctl commands. Some of them are passed as it is to the 
* board, hence should not be modified. 


3, 
vd 
n 


ale 


cf 


#tdefine BRDINIT 
#define BRDSTART 
#define BRDGSTAT 
#define BRDRSSTAT 
#define BRDGCONF 
#tdefine BRDADDR 


#define BRDSARP 
#define BRDGARP 
#define BRDDARP 


#define BRDADDRT 
#define BRDDELRT 
#define BRDSHOWRT 
#define BRDDISPRT 


(0) 
(1) 
(5) 
(6) 
Gy 
(10) 


(20) 
(21) 
(22) 


(23) 
(24) 
(25) 
(26) 


/* Reset EXOS devive */ 

/* start exos running */ 

/* get board statistics */ 

/* get/reset board statistics*/ 
/* get configuration msg */ 
/* set exos memory locator */ 
/* set an ARP table entry */ 
/* get an ARP table entry */ 
/* delete an ARP tbl entry */ 
/* add routing table entry */ 
/* delete RT entry %/ 

/* show RT entry */ 

/* display RT entry */ 


/* Data structure used to send board statistics to host */ 


struct EXbdstats { 


5 
/* 


long xmMt § 

long excess coll; 
long late coll} 
long tdr3 

long rcv$ 

long align err; 
long cre err; 
long lost err}; 


J. 2 
a oF 


° 


st st t, 
Cd a 


~ UM MM ME 
St 
. 


* 


frames transmitted successfully */ 
xmits aborted due to excess coll */ 
« xmits aborted due to late coll */ 

* time domain reflectometer */ 

* error free frames received */ 
frames rcvd with alignment err */ 
frames rcevd with cre errors */ 
frames lost due to no buffers */ 


/* other bits of info about the board */ 


short fw 
short Sw 
short hw_ 


release} 
release} 
release} 


/* firmware release */ 
/* software release */ 
/* hardware release */ 


* Toctl structure for manipulation of the ARP codes 


J 
al 
ry 


/ 


struct EXarp ioctl { 


struct sockaddr 
struct sockaddr 
long 


}3 


arp pa3 
arp ha; 
arp flags; 


/* protocol address * / 
/* hardware address */ 
/* flags x / 
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57 

58 #define ATF COM 2 /* completed entry */ 

59 #define ATF PERM 4 /* permanant entry %/ 

60 #define ATF PUBL 8 /* respond for another host */ 


61 
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WO Onm Dw HS WD EE 


7, 
/* 


* filename: 


ate 
a 

ate 
“ 


EXIOCMD.H 
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* following are the requests send to the board 
* — host to board request must be less than 64 ; 


ate 
fy 


4. 
*/ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 


#define 
#define 


#define 


#define 
#define 
#define 


#define 
#define 
#define 
#define 


/* unsolicited messages from board */ 


#define 
#define 
#define 
#define 
#define 


#define 


#define 


#define 


SOSOCKET 
SOACCEPT 
SOCONNECT 
SOSEND 
SORECEIVE 
SOSKTADDR 
SOCLOSE 
SOVERIFY 
SOIOCTL 
SOSELECT 


NET _DLOAD 
NET ULOAD 
NET START 


NET GSTAT 
NET RSTAT 


NET GCONF 


NET SARP 
NET GARP 
NET DARP 


NET ADDRT 
NET DELRT 
NET SHOWRT 
NET DISPRT 


SOSELWAKEUP 
SOHASOOB 
NET PRINTF 
NET PANIC 
IM ALIVE 


REPLY OK 


NM MAGIC DATA 


MQ_EXOS 


flags takes up upper two bits. 


(50) 
(51) 
(52) 
(53) 
(54) 
(55) 
(56) 
(57) 
(58) 
(59) 


0 
1 
2 


BRDGSTAT 
BRDRSSTAT 


BRDGCONF 


BRDSARP 
BRDGARP 
BRDDARP 


BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 


(80) 

(81) 
100 
101 
102 


0x00 


0x80 


0x01 


/* 


*« net download */ 
* net upload */ 
* start downloaded stuff*/ 


* read net statistics */ 


read & reset stats */ 


get configuration msg*/ 


* get ARP / 
* get ARP */ 
* delete ARP / 


add RT entry */ 


« delete RT entry */ 
* show RT * 
* display RT 


/ 
ate / 
ray 


print out msg */ 


« oh-my-gosh */ 


I think therfore I am*/ 


* all is well */ 


‘ exos own Q element */ 
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57 #define MQ DONE 0x02 /* exos done with Q elmnt*/ 
58 #define MQ OVERFLOW 0x04 /* data are too big */ 
59 
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/ ve 

* These 

*/ 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


/* Executive 


# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


ate 
ray 
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are the DIC and DPB lengths of the Executive directives 


QIo 

QIOw 
ALUN 
WISE 
GTIM 
SPWN 
SDRC 
SDAT 
STOP 
RCVD 
MRKT 


IE BAD 
IE IFC 
IE DNR 
IE SPC 
IE ABO 
IE PRI 
IE DFU 
IE FHE 
IE OFL 


are the 


06001 
06003 
02007 
01051 
01075 
06413 
03615 
02507 
0603 

02113 
02427 


-O1 
-Q2 
-03 
-06 
=15 
-16 
~-24 
=o 
-65 


return status */ 


re reo 
a Y " " 


She ghee 
se xe of 


ay 


se 


a i 
2, 
v 


function codes related to 


bad parameters */ 
illegal function */ 
device not ready */ 
illegal bufferr */ 
request aborted */ 


priv or channel error* 
‘no free channel */ 
* fatal hardware error */ 
« device offline */ 


the QIO call to the ZE device 


following five codes are already defined in standard rsx header file 


* rsx.eh and are not defined here only shown under comment for clarity 


define 
define 
define 
define 
define 


ste / 
o 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


10 KIL 
IO WLB 
IO RLB 
10 ATT 
IO DET 


TO EXC 


EX_INI 
EX _CNF 


000012 
000400 
001000 
001400 
002000 


002400 


EX STR 


EX STS 


EX SAR 
EX GAR 
EX DAR 
EX ART 
EX DRT 
EX SRT 
EX NRT 


BRDINIT 
BRDGCONF 
BRDSTART 
BRDGSTAT 
BRDSARP 
BRDGARP 
BRDDARP 
BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 


# kill all outstanding request # 
# write to the EXOS memory # 
# read from the EXOS memory # 
# attach fn: made no-op # 
# detach fn: made no-op # 


/* EXOS board admn. operation */ 


f, 
/* 


‘ 


Reset and configure EXOS */ 

/* get configuration msg 
Execute EXOS procedure %/ 
Read network statistics %/ 
set up an ARP table entry */ 
Retrive an ARP table entry */ 


« Delete an ARP table entry */ 
* Add an Routing table entry */ 
* Delete an RT entry %* / 


Fetch an RT entry */ 


* Fetch next RT entry * / 
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57 #define EX RST BRDRSSTAT /* Read & Reset network stats */ 
58 #define EX OPN 0020 /* Open an admin channel we / 
59 #define EX CLS 0021 /* Close an admin channel */ 
60 #define EX POS BRDADDR /* Seek EXOS's memory * / 
61 

62 #define IO ACS 003000 /* Socket access operations */ 

63 #define SA OPN 50 /* Open a socket * / 
64 #define SA ACC 51 /* Accept a remote socket %/ 
65 #define SA_CON 52 /* Connect to a remote socket */ 
66 #define SA SAD 55 /* get socket informations %/ 
67 #define SA CLS 56 /* close an opened socket %/ 
68 #define SA_ SEL 59 /* perform select op on socket*/ 
69 #define SA_USL 0210 /* kill the outstanding select call */ 
70 #define SA _URG 0200 /* prepare for urgent msg */ 
71 #define SA_ ROO 0220 /* remove oob pkt from pending list */ 
72 

73 #define IO XFR 003400 /* data transfer operation * / 

74 #define IX RDS 0000 /* read from TCP stream */ 
75 #define IX WRS 0001 /* write to TCP stream * / 
76 #define TX SND 53 /* send datagram to a socket */ 
77 #define IX RCV 54 /* receive socket datagram % / 
78 

79 #define IO SOC 004000 /* socket control operations */ 

80 #define SO DON SIOCDONE /* shutdowm r/w on socket %/ 
81 #define SO_SKP SIOCSKEEP /* set keep alive %/ 
82 #define SO _GKP SIOCGKEEP /* inspect keep alive %/ 
83 +#define SO_SLG SIOCSLINGER /* set linger time we / 
84 #define SO GLG SIOCGLINGER /* get linger time %/ 
85 #define SO SOB S IOCSENDOOB /* send out of band / 
86 #define SO ROB SIOCRCVOOB /* receive out of bound %/ 
87 #define SO AMK SIOCATMARK /* at oob mark ? */ 
88 #define SO SPG SIOCSPGRP /* set process group we / 
89 #define SO GPG SIOCGPGRP /* get process group % / 
90 #define SO NRD FIONREAD /* FIONREAD */ 
91 #define SO_NBO FIONBIO /* FIONBIO %/ 
92 #define SO ASY FIOASYNC /* FIOASYNC cr 
93 

94 #define IO LOG 004400 /* read error msg from EXOS */ 

95 #define IO TEL 0177000 /* telnet server pseudo fn code */ 
96 ##define TS HNG 0176000 /* hangup carrier pseudo fn code*/ 
97 

98 /* 

99 * All the Socket related parameters in the QIO call are passed 

100 * throgh the structure "SOictl" defined below. 

101 */ 

102 

103 struct SOictl { 

104 short hassa}3 /* non-zero if sa specified */ 
105 struct sockaddr sa} /* socket address (optional ) ve / 
106 short hassp} /* non-zero if sp specified ¥/ 
107 struct sockproto sp3 /* socket protocol (optional) */ 
108 int type3 /* socket type x / 

109 int options; /* options x / 

110 /* these are for select () */ 

1il int nfd3 


112 long SW 5 
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113 long *rp3 
114 long timo$3 
115 ks 

116 

117 


118 
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un BW hw 


/* unsigned data types (shorthand) * 


typedef unsigned int Uint3 

typedef Long Ulong3 
typedef unsigned short Ushort; 
typedef char Uchar3 
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1 /* RSX CONTROL - BLOCK */ 
2 
3 struct rcb { 
4 int mode} /* File type */ 
5 int rlun3 /* RSX LUN %/ 
6 int flags; /* Flags -- described below */ 
7 char *bptr3 /* pointer to block buffer */ 
8 char *bnptr3 /* next position in block */ 
9 int bleft; /* bytes left in block read/write*/ 
10 char *rptr3 /* poiter to record buffer */ 
11 char *rnptr$ /* next position in record */ 
12 char *£ db; /* pointer to FDB */ 
13 union { 
14 int rleft3 /* char left to be read */ 
15 int rsize3 /* max. record size */ 
16 } rec3 
17 33 
18 
19 struct dblbuf { 
20 int statl2]; /* status of i/o buffer */ 
21 /* = 0 -- EOF */ 
22 /* <0 -- I/O Error */ 
23 /* > 0 -- Bytes transferred */ 
24 char *buffer[2]; 
25 XFILE *fd; /* pointer to file descriptor */ 
26 char active3 /* buffer used for I0 */ 
27 }5 
28 
29 struct iosb { 
30 unsigned char cc} 
31 unsigned char lc} 
32 int nread3 
33 33 
34 


35 #define RFREE 01 
36 +#define RUSED 02 
37 +#define REOF 04 
38 +#define REOLN 010 
39 #define DBLBUF 040 
40 #define RCRFLAG 020 
41 #define SOEFN L 
42 +#define DISKEFN 12 
43 #define FDBSIZE 0140 
44 #define F FFBY 014 
45 #define F RSIZ 02 
46 #define F BKVB 064 
47 +#define RECSIZE 256 
48 +#define BLKSIZE 512 
49 +#define MAXPRM 20 
50 #define C DSDS 06 


51 +#define IO XFR 003400 /* data transfer stream */ 
52 +#define IX_ RDS 0000 /* read from TCP stream */ 
53 #define IX WRS 0001 /* write to TCP stream */ 


54 #define SOLUN 20 /* EXOSO LUN */ 
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/* @(#)ftp.h 
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* Definitions for FTP 


«/ 
#ifndef 
#define 
#tendif 
#ifndef 
#define 
#tendif 
#ifndef 
#define 
#endif 


/ Ne 


ve / 
#define 
#define 
#define 
#define 
#define 


/* 
* Type 
% / 
#define 
#define 
#define 
#define 


/* 
*« Form 
x / 
#define 
#define 
#define 


/* 


* See RFC-765 


MAXPATHLEN 
MAXPATHLEN 1024 


CTRL 
CTRL(x) 037&x 


SIGCHLD 
SIGCHLD SIGCLD 


* Reply codes. 


PRELIM 
COMPLETE 
CONTINUE 
TRANSIENT 
ERROR 


codes 


TYPE A 
TYPE E 
TYPE I 
TYPE L 


codes 
FORM N 


FORM T 
FORM C 


* Structure codes 


ke / 
#define 
#define 
#define 


#define 
#define 
#define 


ate 
“ 


STRU F 
STRU R 
STRU P 


types 


MODE S 
MODE B 
MODE C 


* Record Tokens 


ate / 
a 


1.2 1/14/85 */ 


Wm Wh ee 


Nh No FWHM Fr 


ine) 


/ 
/ 
/ 
/ 


~~ 


~~ 
ra ae t 


36 
“a 


sh 


ste 
a 
ate 
Pay 
ale 
ray 
al. 
rh 


le 


ASCII */ 
EBCDIC */ 


image */ 


* non-print 
* telnet format effectors 
* carriage control (ASA) */ 


* stream */ 
* block */ 
* compressed */ 


positive preliminary */ 
positive completion */ 
* positive intermediate 
* transient negative completion 
* permanent negative completion */ 


« local byte size */ 


ate 
ray 


ote / 
a 


ate / 
ao 


‘ file (no record structure) */ 
‘ record structure */ 
* page structure */ 


*/ 
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#define REC ESC 
#define REC EOR 
#define REC EOF 


/* 

* Block Header 

Xe / 

#define BLK EOR 
#define BLK EOF 
#define BLK ERRORS 
#define BLK RESTART 


#define BLK BYTECOUNT 


* Block 
* Block 
© Block 
* Block 


* Bytes 


is 
is 
is 
is 


in 


« Record-mode Escape */ 
* Record-mode End-of-Record */ 
* Record-mode End-of-File */ 


End-of-Record */ 

End-of-File */ 

suspected of containing errors 
Restart Marker */ 


this block */ 


ste / 
ray 
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/*@Q(#)ftp var.h 1.12 6/13/85*/ 


/ le 
PAY 


* FTP global variables. 


ate 
ras 


#include "varpat.h" 


ate 
we 


* Options and other state info. 


x / 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


extern 
extern 


#ifdef 


int 
int 
int 
int 
int 
int 
int 
int 
int 
int 
int 


char 
int 
char 
int 
char 
int 
char 
int 
char 
int 


char 
struct 


zilog 


trace$3 
hash3 
sendport 3 
verbose; 
connected} 
fromatty}3 
interactive}3 
debug} 
bell; 
doglob3 
autologin; 


typename[ ]; 
type} 
structnamel[ ]; 
stru;5 
formname[ ]; 
form$ 
modename[ ]; 
mode 3 
bytename[ ]; 
bytesize;3 


*“hostname $3 


servent *“sp}3 


#include <setret.h> 


extern ret buf 


#else 


toplevel; 


/* #include <setjmp.h> */ 


extern jmp buf 


#endif 
extern 
extern 


extern 


extern 


ate 
a 


char 
int 
char 


int 


toplevel3; 


* trace packets exchanged */ 

* print # for each buffer transferred */ 

* use PORT cmd for each data connection */ 
* print messages coming back from server */ 
* connected to server */ 

* input is from a terminal */ 
interactively prompt on m* cmds */ 

« debugging level */ 

ring bell on cmd completion */ 

* glob local file names */ 

‘ establish user account on connection */ 


at. 
~ 


~ Me Ma Ma TM TM ML MM 
t 
‘ 


2, 
~ 


name of file transfer type */ 

* file transfer type */ 

* name of file transfer structure */ 
* file transfer structure */ 

* name of file transfer format */ 

« file transfer format */ 

* name of file transfer mode */ 

* file transfer mode */ 

* local byte size in ascii */ 

* local byte size in binary */ 


a nn 
sh 0 5 
AY 


/* name of host connected to */ 


/* service spec for tcp/ftp */ 


/* non-local goto stuff for cmd scanner */ 


/* non-local goto stuff for cmd scanner */ 


Line[]; /* input line buffer */ 


marge} 


“kKMArZv3 


options3 


* Format of command table. 


ale 
ry 


struct 


cmd { 
char 


*c name3 


/* count of arguments on input line */ 
/* args parsed from input line */ 


/* used during socket creation */ 


/* name of command */ 
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ie 


extern 
extern 
extern 


char *c_ help; /* help string */ 

char c bell; /* give bell when command completes */ 
char c conn; /* must be connected to use command */ 
int (*c handler)(); /* function to call */ 


char *tail()3 
char *remglob()3 
int errno3 
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/* @(#)host arp.h 1.3 5/14/85 */ 
/* 
Address structures for ARP ioctl calls 


ate 
“ 


/ * 
Ethernet Address 
* / 


struct etr_ addr { 
short ea family; 
char ea addrl6]; 
char ea extra[8]; 


}5 
/* 


Count ( for retrieving entire table ) 


ste / 
a 


struct next addr { 
short nxt family; 
long nxt count} 
char nxt _extral10]; 


to match sockaddr structure 


/* interesting part */ 
to match sockaddr structure 


to match sockaddr structure 
interesting part */ 


* to match sockaddr structure 


Ke } 
x / 


ste 
ray 
ate / 
ay 
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1 /* @(#)in.h 1.3 4/12/85 */ 
2 
3 |x 
4 %* GAP 1/11/85: WARNING - This file is included by both host 
5 * and board code. Make changes with extreme caution, and test 
6 * effects on both the host and board sides. 
7 ve 
8 
g9 /* 
10 * Constants and structures defined by the internet system, 
11 * Per RFC 790, September 1981. 
12. */ 
13 
14 /* 
15 * Protocols 
16 */ 
17 #define IPRO ICMP 1 /* control message protocol */ 
18 #define IPPROTO GGP 2 /* gateway*2 (deprecated) */ 
19 #define IPRO TCP 6 /* tcp */ 
20 #define IPRO PUP 12 /* pup */ 
21 #define IPRO UDP 17 /* user datagram protocol */ 
22 
23 #define IPRO RAW 255 /* raw IP packet */ 
24 #define IPRO MAX 256 
25 
26 = /* 
27 * Port/socket numbers: network standard functions 
28 */ 
29 #define IPPORT ECHO | 
30 #define IPRT DISCARD 9 
31 #define IPRT SYSTAT 11 
32 #define IPPORT DAYTIME 13 
33 #define IPRT NETSTAT 15 
34 #define IPRT FTP 21 
35 #define IPPORT TELNET 23 
36 #define IPPORT SMTP 25 
37 +#define IPRT TIMESERVER 37 
38 #define IPPORT NAMESERVER 42 
39 #define IPPORT WHOIS 43 
40 #define IPPORT MTP 57 
41 
42 /* 
43. * Port/socket numbers: host specific functions 
44 0 */ 
45  #define IPRT TFTIP 69 
46 #define IPRT RJE 77 
47 +#define IPPORT FINGER 79 
48 #define IPRT TTYLINK 87 
49 #define IPRT SUPDUP 95 
50 
51 /* 
52 * UNIX TCP sockets 
53 */ 
54 #define IPRT EXECSERVER 512 
55 +#define IPPORT LOGINSERVER 513 


56 #define IPPORT CMDSERVER 514 
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57 

58 /* 

59 ™* UNIX UDP sockets 

60 */ 

61 #define IPPORT BIFFUDP 512 

62 #define IPRT WHOSERVER 513 

63 - 

64 /* 

65  ~* Ports < IPPORT RESERVED are reserved for 

66 p peteece processes (e.g. root). 

67 ¥ 

68 #define IPPORT RESERVED 1024 

69 

70. —(/* 

71 * Link numbers 

72 */ 

73 #define IMPLK IP 155 

74 +#define IMPLK LOWEXPER 156 

75 #define IMPLINK HIGHEXPER 158 

76 

77. o[* 

78 ™* Internet address (old style... should be updated) 

79 / 

80 struct in addr { 

81 union { 

82 struct { char s bl,s b2,s b3,s b43 } S_un b; 
83 struct { unsigned short s wl,s w23; } S_un w; 
84 long S addr; 

85 } Sun}; 

86 #define s addr S_un.S addr /* can be used for most tcp & ip code */ 
87 #define s host S_un.S un bes b2 /* host on imp */ 

88 #define s net S$ un.S un bes bl /* network */ 

89 #define s imp  S_un.S un wes w2 /* imp */ 

90 #define s impno S _un.S un b.s b4 /* imp # */ 

91 #define s lh S_un.S un b.s _ b3 /* logical host */ 

92 #define S_ baddr S_un.S un b 

93 $3 

94 

95 /* 

96 * Macros for dealing with Class A/B/C network 

97. * numbers. High 3 bits of uppermost byte indicates 

98 * how to interpret the remainder of the 32-bit 

99 * Internet address. The macros may be used in time 
100 * time critical sections of code, while subroutine 
101 * versions also exist use in other places. 
102. */ 
103. /* 
104 * GAP 1/10/85: Apparently these are designed to work on internet 
105 * addresses which reside in network order in RAM, if regarded as 
106 * a byte string. Be careful, because 4.2BSD defines just one 
107. * version of these macros, which works on internet addresses only 
108 * after they are swapped into proper order (in a CPU register) 
109 * by ntohl(). 

110—*/ 

111 


112. /* GAP 1/10/85: Note fancy footwork below to share header with board code */ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
13Z 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


#ifdef ONBOARD 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#endif 


IN CLASSA 
INCA NET 
INCA LNA 
INCB 
INCB NET 
INCB LNA 
INCC NET 
INCC LNA 


#ifndef ONBOARD 


in.h Page 3 


/* board make 


does not define MACHINE type */ 


0x00800000L 


0x00ff0000L 
OxffOOfffFEL 
0x00400000L 
OxffffOO00L 
Ox0000fffLEL 
OxffffOOffL 
0x0000ff00L 


/* board make 


/* 8 bits of net # */ 


/* 16 bits of net # */ 


/* 24 bits of net # */ 


does not define MACHINE type */ 


#ifdef VAX 

#define IN CLASSA 0x00000080 

#define INCA NET 0x000000F£ /* 8 bits of net # */ 
#define INCA LNA Oxfffff£00 

#define INCB 0x00000040 

#define INCB NET Ox0000ffFE /* 16 bits of net # */ 
#define INCB LNA Oxfff£0000 

#define INCC NET OxOO0fffff£ /* 24 bits of net # */ 
#tdefine INCC LNA Oxf £000000 

#endif 

#ifdef PDP11 /* Also 8086 XENIX V7 C */ 
#define IN CLASSA 0x00800000L 

#tdefine INCA NET 0x00ff0000L /* 8 bits of net # */ 
#define INCA LNA Oxff00ffffL 

#define INCB 0x00400000L 

#define INCB NET Oxffff0000L /* 16 bits of net # */ 
#define INCB LNA Ox00Q00ffffL 

#define INCC NET OxffffOOffL /* 24 bits of net # */ 
#define INCC LNA 0x0000ff00L 

#endif 

#ifdef 18086 /* XENIX 3.0, Lattice C */ 
#define IN CLASSA 0x00000080 

#define INCA NET 0x000000ff /* 8 bits of net # */ 
#define INCA LNA Oxfff££L00 

#define INCB 0x00000040 

#define INCB NET Ox0000fffE /* 16 bits of net # */ 
#define INCB LNA Oxff£££0000 

#define INCC NET Ox00ffffff /* 24 bits of net # */ 
#define INCC LNA Oxf £000000 

#endif 

#ifdef M68000 

#define IN CLASSA 0x80000000L 

#define INCA NET Oxff000000L /* 8 bits of net # */ 
#define INCA LNA OxO0ffffffL 

#define INCB 0x40000000L 

#define INCB NET Oxffff0000L /* 16 bits of net # */ 
#define INCB LNA Ox0000fff£L 

#define INCC NET OxffffffOOL /* 24 bits of net # */ 
#define INCC LNA 0x000000ffL 

endif 

#ifdef Z8000 

#define IN CLASSA 0x80000000L 

#define INCA NET Oxff000000L /* 8 bits of net # */ 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 


#define INCA LNA OxOOfffffFL 


#define INCB 0x40000000L 

#define INCB NET Oxff£ff0000L /* 16 bits of net # */ 

#define INCB LNA Ox0000ffffL 

#define INCC NET Oxffffff00L /* 24 bits of net # */ 

#define INCC LNA 0x000000ffL 

#endif 

#endif ONBOARD /* board make does not define MACHINE type 


#define IN NETOF(in) \ 
(((in).s addr&IN CLASSA) == 0 ? (in).s addr&INCA NET : \ 
((in).s addr&INCB) == 0 ? (in).s addr&INCB NET : \ 
(in).s addr&INCC_NET) 
#define IN LNAOF(in) \ 7 
((Cin).s_addr&IN CLASSA) == 0 ? (in).s addr&INCA_LNA : \ 
((in).s addr&INCB) == 0 ? (in).s addr&INCB LNA : \ 
(in).s addr&INCC_LNA) 


#define INADDR ANY 0x00000000 


Jae 
/ ‘ 


* Socket address, internet style. 


struct sckadr in { 
short sin family; 
unsigned short sin port} 
struct in_addr sin addr; 
char sin zero[8]; 


}3 


#ifdef KERNEL 
long in netof(),in lnaof(); 
#endif 


ate 
ray 
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ve 


/* 


init.h Page l 


filename: INIT.H 


/ 


* Structure used for initialization only. 


ve 


/ 


/* some of the dummy entries are due to byte swapping */ 


struct init msg { 
short im newstyle; 
char im version[4]; 
char im result} 
char im mode} 
char im hdfol2]; 
char im junk(3]; 
char im_addrmode}3 
char im_dummy2; 
char im _mmsize} 
char im byteptn[4]; 
Ushort im wordptnl2]; 
long im longptn3 
char im mmap[20]; 
short im 10loff; 
short im 101seg; 
char im nproc; 
char im nmb3 
char im nslots3 
char im nhosts$3 

/* “host to exos" stuff */ 
long im h2exqaddr; 
short im h2exoff3 
char im h2extype}3 
char im h2exvalue} 
Long im h2exaddr3 

/* "exos to host" stuff */ 
long im_ex2hqaddr; 
short im ex2hoff 35 
char im ex2htype}3 
char im ex2value; 
Long im_ex2haddr3 

$5 

/* im mode */ 

# define EXOS LINKMODE 0 

# define EXOS HOSTLOAD 1 


# define 


EXOS NETLOAD 2 


new style init msg? */ 
version to the hardware */ 


* completion code */ 


set to link moce (0) */ 
host data format option */ 


* host address mode */ 


memory map size (returned) */ 
data order byte pattern */ 


' data order word pattern */ 


data order long pattern */ 


* (rest of) memory map (returned)*/ 


movable block offset */ 
movable block segment */ 


‘ number of exos 101 processes */ 


number of exos 101 mailboxes ~*/ 
number of address slots * / 
number of hosts == * / 


host to exos msg a address */ 
offset from base of actual q_ */ 


' interrupt type for h2ex msg q_ */ 


interrupt value */ 
interrupt address */ 


exos to host msg q address * / 
offset from base of actual q %/ 
interrupt type for ex2h msg q */ 
interrupt value */ 


interrupt address */ 
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@(#)netdb-h 1.3 3/25/85 */ 


* Structures returned by network 


* data 


base library. 


* are supplied in host order, and 
* returned in network order (suitable 
* for use in system calls). 


%/ 
struct hostent { 
char *h name} _/* official name of host */ 
char **h aliases}; /* alias list */ 
int h addrtype; /* host address type */ 
int h length; /* length of address */ 
char *h addr} /* address */ 
35 
/[* 
* Assumption here is that a network number 
* fits in 32 bits -- probably a poor one. 
ve | 
struct netent { 
char *n name} /* official name of net */ 
char *n aliases} /* alias list */ 
int n_addrtype; /* net address type */ 
Long n net$ /* network # */ 
33 
struct servent { 
char *s name} /* official service name */ 
char ws aliases; /* alias list */ 
unsigned short s_ port} /* port # */ 
char *s proto$ /* protocol to use */ 
$5 
struct protoent { 
char *p name; /* official protocol name */ 
char **p aliases} /* alias list */ 
int p proto; /* protocol # */ 
$3 
#define ghbname gethbname 
#define ghbaddr gethbaddr 
#define gethostent gethent 
#define sethostent sethent 
#define endhostent endhent 
#define gnbname getnbname 
#define gnbaddr getnbaddr 
#define getnetent getnent 
#define setnetent setnent 
#define endnetent endnent 
#define gsbname getsbname 
#define gsbport getsbport 
#define getservent getsent 


All addresses 
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#define setservent setsent 
#define endservent endsent 


#define getpbname gpbname 
#define getpbnumber gpbnumber 


#define getprotoent getpent 
#define setprotoent setpent 
#define endprotoent endpent 
#define inet _lLnaof inetgin 
#define inet netof inetgnet 


struct hostent *ghbname(), *“ghbaddr(), *gethostent(); 
struct netent *gnbname(), *gnbaddr(), *getnetent(); 
struct servent “gsbname(), *“gsbport(), *getservent()3 
struct protoent *gpbname(), *gpbnumber(), *getprotoent()3 
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1 /* @(#)route.h 1.6 5/7/85 */ 
2 
3 |/* 
4 * GAP 1/11/85: WARNING - This file is included by both host 
5  ™* and board code. Make changes with extreme caution, and test 
6 * effects on both the host and board sides. 
7 */ 
8 
9 /* 
10 * Kernel resident routing tables. 
ll * 
12 * The routing tables are initialized at boot time by 
13. * making entries for all directly connected interfaces. 
14 * Routing daemons can thereafter update the routing tables. 
15 * 
16 * TODO: 
17 * keep statistics 
18 */ 
19 
20 /* 
21 * A route consists of a destination address and a reference 
22 “to a routing entry. These are often held by protocols 
23. * in their control blocks, e.g. inpcb. 
24 */ 
25 struct route { 
26 struct rtentry *ro rt; 
27 struct sockaddr ro dst$ 
28 #ifdef notdef 
29 caddr t ro pcb} /* not used yet */ 
30 #endif 
31 33 
32 #ifdef KERNEL 
33. /* 
34 * The route ''routetoif'' is a special atom passed to the output routines 
35  * to implement the SO DONTROUTE option. 
36 */ 
37 struct route routetoif$ 
38 #endif 
39 
40 /* 
41 * We distinguish between routes to hosts and routes to networks, 
42 * preferring the former if available. For each route we infer 
43 * the interface to use from the gateway address supplied when 
44 * the route was entered. Routes that forward packets through 
45  * gateways are marked so that the output routines know to address the 
46 * gateway rather than the ultimate destination. 
47 
48 * AA - 4/11/85: The rtentry structure below has been set up 
49 * so that it it compatible with the host, board 
50 * and machines such as VAX that like 
51 * to do long alignments. 
52 * !!! DO NOT FIDDLE WITH THIS STRUCTURE UNLESS YOU 
53 * !!! UNDERSTAND THIS 
54 */ 


55 struct rtentry { 
56 struct sockaddr rt dst} /* key */ 
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#ifdef 


#endif 
#ifdef 


#endif 


#ifdef 


#endif 
#ifdef 


#endif 


5 
#define 
#ifdef 
struct 
struct 
#endif 


#define 
#define 
#define 


#define 


struct sockaddr rt gateway} 
struct rtentry *rt next} 


PDP11 

short dummy $ 
xenix286 

short dummy 5 

u_long rt_use} 

struct ifnet *rt_ifp; 
PDP11 


short dummy x 5 


xenix286 
short dummyx 3 


char rt flags; 
char rt_refcnt}3 
u_short rt hash} 


RTHASHSIZ 7 

ONBOARD 

rtentry *rthost[RTHASHSIZ] 
rtentry *rtnet[RTHASHSIZ] 


| 
S 


RTF UP Oxl 
RTF GATEWAY 0x2 
RTF HOST 0x4 


RTFREE(rt) \ 

if ((rt)->rt_refcnt == 1) \ 
rtfree(rt)3 \ 

else \ 
(rt)->rt_refcnt--3 


~  , 
0 sh 


* value */ 
* next pointer */ 


* host ptr=43 board ptr =2 */ 


* host ptr=43 board ptr =2 */ 


* raw # packets forwarded */ 


the answer: interface to use * 


‘ host ptr=43 board ptr =2 */ 


* host ptr=43 board ptr =2 */ 


up/down?, host/net */ 
# held references */ 


* to speed lookups */ 


* route useable */ 
* destination is a gateway */ 
* host entry (net otherwise) */ 
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* These are the DIC and DPB lengths of the Executive directives 


#define RSX 


# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


QIo 

QIow 
ALUN 
WISE 
GTIM 
SPWN 
SDRC 
SDAT 
STOP 
STSE 
RCVD 
RCVX 
RCST 
MRKT 
GTSK 
SREX 
EXST 
USTP 
SETE 
CLEF 
ENAR 
DSAR 
DSCP 
ENCP 
GLUN 
RQST 


1 


06001 
06003 
02007 
01051 
01075 
06413 
03615 
02507 
0603 

01207 
02113 
02115 
02213 
02427 
01077 
01647 
01035 
01605 
01041 
01037 
0545 

0543 

0537 

0541 

01405 
03413 


* QIO function codes 


$. 
ale 
a 


ed 
ray 


# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 
# define 


/* Executive return status * 


# define 
# define 
# define 


# define 


IO RLB 01000 
IO _RVB 010400 
IO RTT 05001 

IO WVB 011000 
IO DET 002000 
10 KIL 000012 
IO WLB 00400 

IO ATA 01410 

SF SMC 02440 

SF GMC 02560 

TC FDX 064 

TC ACR 024 


IS CLR 00 
Is suc 01 
IS SET 02 


IE BAD -O1l 


‘ event was clear */ 
* operation successful 
* event flag was set 


* bad parameters * / 


ate 
ry 


ate 
a 
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~ 


57 # define IE IFC -02 
58 # define IE DNR -03 
59 # define IE SPC -06 
60 # define IE ACT -07 
61 # define IE ABO -15 
62 # define IE PRI -16 


illegal function */ 
device not ready / 
illegal bufferr */ 
“/ 
/ 


7 


~ 


task not active 
* request aborted 
priv or channel error*/ 


U 
+ 


“~ MA  M T  T T , 
se ot 4, z, ‘ 


63 # define IE DFU -24 * no free channel */ 
64 # define IE FHE -59 * fatal hardware error */ 
65 # define IE OFL -65 * device offline cat | 
66 

67 /* CSI CONTROL BLOCK OFFSETS AND BIT VALUES DEFINITIONS 

68 * 

69 / 


70 #define CS DIF 02 
71 #define CS DVF 04 
72 #define CS EQU 040 
73 #define CS INP 01 
74 #define CS MOR 020 
75 #define CS NMF 01 
76 #define CS OUT 02 
77 #define CS WLD 010 
78 #define C CMLD 02 
79 #define C DEVD 06 
80 #define C DIRD 012 
81 #define C DSDS 06 
82 #define C FILD 016 
83 #define C MKW1 024 
84 #define C MKW2 026 
85 #define C STAT 01 
86 #define C SWAD 022 
87 #define C TYPR 00 
88 #define A GRP 00 
89 #define AMBR 03 
90 #define A LPRV 074 
91 #define A SYDV 056 
92 #define TF RAL 010 


93 /* 

94 CC Portable routines. 

95 */ 

96 /* 

97 MCR relative parameters 
98 */ 

99 # define CMDSIZE 60 

100 

101 /* 

102. * terminal Input buffer structure 
103. */ 

104 

105 struct ttybuf { 

106 char Linetty[132]; 
107 char “cur pos} 

108 int tsize}3 

109 }3 


110 #define rsx 
111 #define SCRATCHFILE aoe 


May 8 15:03 1986 socket.h Page 1 


1 /* @(#)socket.h 1.8 7/29/85 */ 
2 /* socket.h 4.16 82/06/08 */ 
3 
4 [* 
5 * GAP 1/11/85: WARNING - This file is included by both host 
6 * and board code. Make changes with extreme caution, and test 
7 * effects on both the host and board sides. 
8 */ 
9 
10 #ifdef BSD4dot2 
ll #define accept ex accept 
12 #define connect ex connect 
13. #define gethostname ex gethostname 
14 #define receive ex receive 
15 #define select ex select 
16 #define send ex send 
17 #define socket ex socket 
18 #define socketaddr ex socketaddr 
19 #define shutdown ex shutdown 
20 
21 #define htonl ex htonl 
22 #define htons ex htons 
23. #define ntohl ex ntohl 
24 #define ntohs ex ntohs 
25 +#define swab ex swab 
26 +#endif BSD4dot2 
27 
28 /* 
29 * Externally visible attributes of sockets. 
30 */ 
31 
32 /* 
33. * Socket types. 
34 * 
35  * The kernel implement these abstract (session-layer) socket 
36 * services, with extra protocol on top of network services 
37 * if necessary. 
38 */ 
39 ##define SOCK STREAM 1 /* stream socket */ 
40 ##define SOCK DGRAM 2 /* datagram socket */ 
41 #define SOCK RAW 3 /* raw-protocol interface */ 
42 #define SOCK RDM 4 /* reliably-delivered message */ 
43  #define SOCK ETH 5 /* link-mode access to e-net packets */ 
44 #define SOCK ICMP 6 /* access to ICMP */ 
45 
46 /* 
47  * Option flags per-socket. 
48 */ 
49 +#define SO DEBUG 0x01 /* turn on debugging info recording */ 
50 #define SO ACCEPTCONN 0x02 /* willing to accept connections */ 
51 #define SO DONTLINGER 0x04 /* don't linger on close */ 
52 +#define SO KEEPALIVE 0x08 /* keep connections alive */ 
53 #define SO DONTROUTE 0x10 /* just use interface addresses */ 
54 #define SO SMALL 0x20 /* use smaller (1/2K) buffer quota */ 
55 +#define SO REUSEADDR 0x40 /* permit local port ID duplication */ 
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Each process is normally operating in a protocol family, 


* whose protocols are used unless the process specifies otherwise. 


* Most families supply protocols to the basic socket types. 
protocols are not present in the family, the higher level (roughly 


When 


* ISO session layer) code in the system layers on the protocols 


* to support the socket types. 


struct sockproto { 


$5 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


4, 
/* 


* Generic socket address format. 


short sp family; 
short sp protocol}; 
PF UNSPEC 0 
PF UNIX 1 
PF INET 2 
PF IMPLINK 3 
PF PUP 4 
PF CHAOS 5 
PF OISCP 6 
PF NBS 7 
PF ECMA 8 
PF DATAKIT 9 
PF CCITT 10 


/* 
/[* 


Z, 
~~ 


Py re re MS 
cay 


protocol family */ 
protocol within family */ 


unspecified */ 
UNIX internal protocol */ 


internetwork: UDP, TCP, etc. */ 


imp 
PUP 
mit 
ois 
nbs 


Link protocols */ 
protocols: e.g. BSP */ 
CHAOS protocols */ 


communication protocols */ 


protocols */ 


datakit protocols */ 


CCITT protocols, X.25 etc */ 


* Each process is also operating in an address family, whose 


* addresses are assigned unless otherwise requested. 


The address 


* family used affects address properties: whether addresses are 


* externalized or internalized, location dependent or independent, etc. 


* The address can be defined directly if it fits in 14 bytes, or 
* a pointer and length can be given to variable length data. 
* We give these as two different structures to allow initialization. 


ate 
a“ 


struct sockaddr { 


short 
char 


sa family; 
sa data[14]; 


/* address family */ 


/* up to 14 bytes of direct address 


* The first few address families correspond to protocol 


* families. 


* are also possible. 


* / 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


AF UNSPEC 
AF UNIX 


AF INET 


AF IMPLINK 


AF PUP 
AF CHAOS 


AF OISCP 


AF NBS 


“SIDR WDD FE © 


~~ 
8 Our Mere re 
Ay 


Address families unrelated to protocol families 


unspecified */ 


local to host (pipes, portals) */ 
internetwork: UDP, TCP, etc. */ 

‘ arpanet imp addresses */ 
* pup 


mit 
01s 
nbs 


protocols: e.g. BSP */ 
CHAOS protocols */ 
communication protocols 
protocols */ 


mtn 
Oy 


* european computer manufacturers */ 


ate 
an 
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113. #define AF ECMA 8 /* european computer manufacturers */ 
114 #define AF DATAKIT 9 /* datakit protocols */ 

115 #define AF CCITT 10 /* CCITT protocols, X.25 etc */ 
116 #define AF ETHER 11 /* Ethernet Address */ 

117 #define AF COUNT 12 /* A count x / 

118 #define AF ETYPEFILTER 13 /* Ethernet filter */ 

119 

120 #define AF MAX 14 

121 

122 /* 

123 MWP: 

124 Sockaddr structure for link mode access to EXOS board. 

125 */ 

126 


127 #ifndef u_short 

128 #define u_short unsigned short 

129 #endif 

130 

131 #define sockaddr link sad link /* for compiler */ 
132 struct sockaddr link { 


133 short sl family; 

134 u_ short sl_types[6]; 

135 short sl zero; 

136 #ifdef ONBOARD 

137 struct enreq *sl_ pndpkt3 /* a part-empty pkt on this socket */ 
138 #endif 

139}; 

140 


141 /* a handy macro */ 
142 #define saptr(x) ((struct sockaddr link *)(((struct socket *)(x))->so_pcb)) 
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* filename: 


x / 


fun 
/* 


* This file defines all the equate symbols for socket ioctl 


ake 
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SOIOCTL.H 


* hence should not be altered. 


ale 
n 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


FIONREAD (127) 
FIONBIO (126) 
FIOASYNC (125) 
TIOCPKT (112) 
TIOCPKT DATA 
TIOCPKT FLUSHREAD 
TIOCPKT FLUSHWRITE 
TIOCPKT STOP 
TIOCPKT START 
TIOCPKT NOSTOP 
TIOCPKT DOSTOP 
SIOCDONE (0) /* 
SIOCSKEEP (1) /* 
SIOCGKEEP (2) /* 
SIOCSLINGER (3) /* 
SIOCGLINGER (4) /* 
SIOCSENDOOB (5) /* 
SIOCRCVOOB (6) /* 
SIOCATMARK (7) /* 
SIOCSPGRP (8) /* 
SIOCGPGRP (9) /* 
SIOCADDRT (10) /* 
SIOCDELRT (11) /* 
SIOCCHGRT (12) /* 


/* on pt 
0x00 
0x01 
0x02 
0x04 
0x08 
0x10 


ys 
/* 
/* 
/* 
/* 
/* 
[* 
0x20 /* 


set/clear packet mode */ 


* commands. These values are actually passed onto to the board, 


data packet */ 
flush packet */ 
flush packet */ 
stop output */ 
start output */ 


no more 


“8, *Q */ 


now do *S *Q */ 


shutdown read/write on socket */ 
set keep alive */ 
inspect keep alive */ 


set linger time 


‘ get Linger time 


ale 
as 

ate 
a 


send out of band */ 


get out of band 


ste 
“ 


‘ at out of band mark? */ 
‘ set process group */ 
‘ get process group */ 


add a routing table entry */ 


* delete a routing table entry */ 
‘ change a routing table entry */ 
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#define 
#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 


#define 
#define 
#define 
#define 


ELMNTBUSY 
ELMNTFREE 
NULLPOINTER 


MAXBUF 
BUFSIZE 
MAXIOSB 
MAXSOICTL 


SOLUN 20 
SOEFN 1 


NOSOBUF 
NOSOIOSB 
NOSOICTL 
NOFREESOCKET 
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oor 


* max no of transfer buffer 
* size of each such buffer 


* the element is busy */ 
* the element is free */ 
* it is pointing to null element 


* / 
*/ 
max no of IO status block */ 
max no of SOictl structure */ 


* EXOSO LUN * / 
efn %/ 


ate 
“ 
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1 typedef struct { int rll]; } * physadr; 
2 typedef long daddr t}; 

3 typedef char * caddr t3 

4 typedef unsigned long mem t3 

5 typedef unsigned short ushort; 

6 typedef unsigned char uchar t}3 

7 typedef ushort ino t$ 

8 typedef short cnt Ct} 

9 typedef Long time t3 

10 typedef long label t[13]; /* regs d2-d7, a2-a7, 
ll typedef short dev t3 

12 typedef long off t3 


13. typedef Long paddr t3 
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/* 
@(#)xctype.h 1.3 5/31/85 


character mappings. 


*/ 

#define U 01 
#define L 02 
#define N 04 
#define § 010 
#define P 020 
#define C 040 
#define B 0100 
#define X 0200 


extern char xctypel ]; 


#define isalpha(c) ((_xctype+1)[c]&( Ul _L)) 

#define isupper(c) (( xctype+l)[c]& U) 

#define islower(c) (( xctypet+l)[c]& L) 

#define isdigit(c) (( xctypetl)[c]& N) 

#define isxdigit(c) ((_xctypetl)[c]& X) 

#define isspace(c) ((_xctype+l)[c]& S) 

#define ispunct(c) (( xctypetl)[c]& P) 

#define isalnum(c) (( xctypetl)[c]&( u]_L|_N)) 
#define isprint(c) (( _xctypetl)[c ]&( Pl Ul Ta _N|_B)) 
#define isgraph(c) ((_xctypet+l)[c]&( P| Ul _L|_N)) 
#define iscntrl(c) ((_xctypetl)[c]& C) 

#define isascii(c) ((unsigned)(c)<=0177) 

#define toupper(c) ((islower(c))? (c)-'a't+'A' : (c)) 
#define tolower(c) (Cisupper(c))? (c)-'A't'a'’ : (c)) 


#define toascii(c) ((c)&0177) 
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@(#)xerrno.h 1.3 3/25/85 


Error values for xgenlib and xoslib. 


Some of these errors will make little sense on non-Unix systems. 
Other error numbers should be added for errors which make little 
sense on Unix systems. 


=19 


-20 


* / 

#define XEPERM -1 
#define XENOENT -2 
#define XESRCH -3 
#define XEINTR -4 
#define XEIO -5 
#define XENXIO -6 
#define XE2BIG <7 
#define XENOEXEC 

#define XEBADF -9 
#define XECHILD -10 
#define XEAGAIN =] 
#define XENOMEM ~12 
#tdefine XEACCES -13 
#define XEFAULT -14 
#define XENOTBLK 

#define XEBUSY -16 
#define XEEXIST ~17 
#define XEXDEV -18 
#tdefine XENODEV -19 
#define XENOTDIR 

#define XEISDIR -21 
#define XEINVAL -22 
#tdefine XENFILE -23 
#define XEMFILE -24 
#define XENOTTY -25 
#define XETXTBSY 

#define XEFBIG -27 
#define XENOSPC -28 
#define XESPIPE ~29 
#define XEROFS -30 
#define XEMLINK -31 
#define XEPIPE -32 
/* math software */ 

#define XEDOM ~33 
#define XERANGE -34 
/* interupt and non-blocking io */ 
#define XEWOULDBLOCK -35 
#define XEINPROGRESS -36 
#define XEALREADY -37 
/* argument errors */ 
#define XENOTSOCK -38 
#define XEDESTADDRREQ -39 
#define XEMSGSIZE -40 
#define XEPROTOTYPE -41 
#define XENOPROTOOPT -42 
#define XEPROTONOSUPPORT 


ate 
aw 


tZ 4. z. 
ee eS 


* 


‘. 0 J, 0 J. 
cs id ed 


0 
aN 


s - + 


fe SS, % cS s s % a! « 


~— 
Ay 
. 


Not owner */ 
No such file or directory */ 
No such process */ 
Interrupted system call */ 
1/O error */ 
No such device or address */ 
Arg list too long */ 

/* Exec format error */ 
Bad file number */ 
No children */ 
No more processes */ 
Not enough core */ 
Permission denied */ 
Bad address */ 

/* Block device required */ 
Mount device busy */ 
File exists */ 


* Cross-device Link */ 
« No such device */ 


/* Not a directory*/ 
Is a directory */ 
Invalid argument */ 


* File table overflow */ 
‘ Too many open files */ 
« Not a typewriter */ 


/* Text file busy */ 


' File too large */ 


No space left on device */ 
Illegal seek */ 


* Read-only file system */ 
* Too many links */ 
* Broken pipe */ 


' Argument too large */ 


Result too large */ 


Operation would block */ 


* Operation now in progress */ 
* Operation already in progress */ 


Socket operation on non-socket */ 
Destination address required */ 


* Message too long */ 


Protocol wrong type for socket */ 
Protocol not available */— 
/* Protocol not supported */ 
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#define XESOCKTNOSUPPORT 

#define XEOPNOTSUPP -45 
#define XEPFNOSUPPORT -46 
#define XEAFNOSUPPORT -47 
#tdefine XEADDRINUSE -48 
#define XEADDRNOTAVAIL -49 


/* operational errors */ 


#define XENETDOWN -50 
#define XENETUNREACH -51 
#define XENETRESET -52 
#define XECONNABORTED -53 
#define XECONNRESET -54 


#define XENOBUFS 
#define XEISCONN 


#define XENOTCONN -57 
#define XESHUTDOWN -58 
#define XETOOMANYREFS -59 
#define XETIMEDOUT -60 


#define XECONNREFUSED -61 


/* random errors */ 


#define XELOOP -62 
#define XENAMETOOLONG -63 
#define XEHOSTDOWN -64 
#define XEHOSTUNREACH -65 
#define XSYSERR -66 


=55 
-56 


/* Socket type not supported */ 


‘ Operation not supported on socket */ 

* Protocol family not supported */ 

* Address family not supported by protocol fam 
« Address already in use */ 

« Can't assign requested address */ 


Network is down */ 
Network is unreachable */ 
Network dropped connection on reset */ 


© Software caused connection abort */ 
‘ Connection reset by peer */ 


/* No buffer space available */ 
/* Socket is already connected */ 
Socket is not connected */ 
Can't send after socket shutdown */ 


« Too many references: can't splice */ 
* Connection timed out */ 
* Connection refused */ 


* Too many levels of symbolic Links */ 
« File name too long */ 

* Host is down */ 

« No route to host */ 

* unspecified os specific error */ 
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#include <rsxos.h> 
#include <xstdio.h> 
#include <xctype.h> 
#include <xerrno.h> 
#define xstrncpy _ncpy 
#define xstrncmp _ncmp 
#define xstrncat neat 


WOON DME Wh Ee 


#define PTOLBYTE( cp ) (cp = cp) 
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1 /* 

2 this file declares password structre 
3 * 

4 +#define MAXUSERNAME 10 
5 #define MAXPASSWORD 8 

6 #define UICSIZE 10 
7 struct passwd { 

8 char login uic[UICSIZE]; 
9 char Log devl6]3 
10 char cur uic[UICSIZE]; 
11 char cur dev[6]; 
12 }; 
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/* 

@(#)xspecial.h 1.8 5/7/85 
flags for special files 

*/ 

#define FILE NAME 50 
#define CURRENT DIR 51 
#define HOME DIR 52 
#define CD RELATIVE 53 
#define HM RELATIVE 54 
#define UP DIRECTORY 55 

/* 

flags for psuedo-file objects 
#define LS 101 
#define LS ARG 102 
#define LSLONG 103 
#define LSLONG ARG 104 
#define PWD 105 
/* 

flags for file openning modes. 
*/ 

#define XFREAD i 
#define XFWRITE 2 
#define XFAPPEND 8 
#define XFCREAT 0x80 
#define XFTRUNC 0x100 
#define XFASCII 0x200 


ate 
na 


file name argument is to be used (as is) */ 
current directory */ 
user's initial location in file system */ 


* name is relative to current directory */ 


name is relative to home directory */ 
parent directory (for xchdir) */ 


« short directory listing */ 


short listing of named directory */ 


« long directory listing */ 


long listing of named directory */ 
return name of current directory */ 


open for reading */ 

open for writing */ 

add to an existing file (FWRITE also 
must be set) */ 


* create file, if it doesn't exist */ 


truncate file (FWRITE also must be set)*/ 
file is ascii (for systems which care) */ 


Note: XFCREAT is a separate issue from XFTRUNC and XFAPPEND, which are 
mutually exclusive. 


ale 

ay 

/ ate 
ray 


Information for FTP style files 


%/ 

#define 
#define 
#define 
#define 


#define 
##define 
#define 


#define 
#define 
#define 


#define 
#define 
#define 


RT ASCII 
RT EBCDIC 

RT IMAGE 

RT LOCALBYTE 


TF NONPRINT 
TF TELNET 
TF FORTRAN 


IS FILE 
IS RECORD 
IS PAGE 


TM STREAM 
T™ BLOCK 
TM COMPRESSED 


struct ftp attr { 


ascii character set */ 


‘ ebcdic character set */ 
' uninterpretted bit stream */ 


wierd sized bytes */ 
no imbedded carriage control */ 
telnet style data */ 


lst collumn == carriage control */ 


Unstructured file */ 


* FTP record internal structure */ 


FTP page internal structure */ 


* stream transmission */ 
* block transmission */ 


data compressed */ 
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int rep type} /* 
int format3 [* 
int structure} /* 
int trans mode} [* 
int byte sz} /* 
$3 
/* 


Flags for setting terminal options 


ale 
a 


#define XON STERM 1 /* 
#define XOFF_ STERM 0 [* 
#define XECHO 1 /* 
#define XLINE EDIT 2 /* 
#define MXNAMELEN 255 /* 


#ifdef zilog 


data repesentation one of? 
RT ASCII, RT EBCDIC, RT IMAGE or 
RT LOCALBYTE */ 
format for character files one of: 
TF NONPRINT, TF TELNET or 
TF FORTRAN */ 
internal structure one of: IS FILE, 
IS RECORD, IS PAGE */ 
transmition mode one of: TM STREAM, 
TM BLOCK or TM COMPRESSED */ 
byte size if represetation type 
is RT LOCALBYTE */ 


with xsetterm. 


turn option on */ 
turn option off */ 
local echo? */ 


« driver handles line edit? */ 


* maximum length for file names 


( system dependent ) */ 


* §8000 does setjmp() differently, and calls it setret(). 
* Do NOT call setret() from routine which declares register variables! 


/* 

*/ 

#define xset jmp(x) setret(x) 
#telse 

#define xset jmp(x) set jmp(x) 


#endif 


/* Unix only */ 
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@(#)xstdio.h 
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1.5 6/4/85 


Definitions for EXOS standard io objects 
(useful for porting code to non-unix systems) 


aie 7 

AY 

/ ‘ate 
Pay 


save space on systems with limited data segment size. 


#ifdef xenix286 


#define 
#telse 


XBUFSIZ 512 


f#ifdef rsx 


#define 
#else 
#define 
#fendif 
#tendif 


#define 
extern 


XBUFSIZ 512 


XBUFSIZ 1024 


_XNFILE 20 

struct xiobuf { 
int _ent$ 
char * ptr; 
char * base; 
int _bufsiz; 
short _flag; 
char file; 


struct xiobuf * succ} 
struct xiobuf * pred; 


char * sys id3 
int (* read)()5 
int (* write)()3 
int (* ioctl)(); 
int (* close)()$ 
} _xiobl XNFILE]; 
#define XIOREAD 01 
#define XIOWRT 02 
#define XIONBF 04 
#define XIOMYBUF 010 
#define XIOEOF 020 
#define XIOERR 040 
#define XIOSTRG 0100 
define ~XIOLBF 0200 
#idefine XIORW 0400 
#define XPrimary 01000 
#define XUsed 02000 
#define XNULL 0 
##define XFILE struct xiobuf 
#define XEOF (-1) 
#define xstdin (& xiob[0]) 
#define xstdout (& xiob[1]) 
#define xstderr (& xiob[2]) 
#define xgetc(p) 


/* forward link (adde 
/* backward link (add 
/* system specific id 
/* field to be added 
/* field to be added 
/* field to be added 
/ 


* field to be added 


/* primary copy of object */ 
/* on if object is in use */ 


(--(p)->_cnt>=0? *(p)->_ptrt++&0377: xfilbuf(p)) 


d) */ 
ed) */ 
entifier (added) */ 


yy 
e / 
ate / 
a 
de / 
PAY 
ate 7 
AY 


May 8 15:04 1986 xstdio.h Page 2 


57 #define xgetchar() xgetc(xstdin) 

58 #define xputc(x,p) (--(p)-> ent>=0? ((int)(*(p)-> ptr++=(unsigned)(x))):_xflsbf((unsign 
59 #define xputchar(x) xputc(x,xstdout) 

60 #define xfeof(p) (((p)->_flag& XIOEOF)!=0) 

61 #define xferror(p) (((p)->_flag& XIOERR)!=0) 

62 #define xfileno(p) ((p)-> file) 

63 


64 extern int xnofunc()3 

65 XFILE *xodopen(); 

66 char *xogets()3 

67 char *xsprintf()3 /* too painful to do right */ 
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/* 
@(#)£tpce.h 1.2 4/11/85 


Header files for generic client side of FTP 


ate 
Red 


#include <rsxos.h> 
#include <xstdio.h> 
#include <xctype.h> 
10 #include <xerrno.h> 
11 #include <xspecial.h> 
12 #include <socket.h> 
13. #include <netdb.h> 


WO OnN HU S WH ke 


15 typedef int jmp buf; 

16 #include <ftp.h> 

17 #include <in.h> 

18 #define SIOCDONE XNULL 

19 #define FIONBIO (126) 

20 #define appendhelp happend 
21 #define deletehelp hdelete 
22 #define disconhelp hdiscon 
23 #define mdeletehelp hmdelete 
24 #define renamehelp hrename 
25 #define statushelp hstatus 
26 #define structhelp hstruct 
27 #define renamecmd cmdrename 
28 extern xclose()3 

29 extern int figit3 

30 extern int errno3 

31 extern long xpasstnet()}; 

32 extern long xpassfnet()}; 

33 #define VOID figit = (int) 


34 

35 /* 

36 * FTP global referrences. 

37. ¥f 

38 #include "varpat.h" 

39 

40 /* 

41 ™* Options and other state info. 

42 */ 

43 extern int trace; /* trace packets exchanged */ 

44 extern int hash; /* print # for each buffer transferred */ 
45 extern int sendport} /* use PORT cmd for each data connection */ 

46 extern int verbose} /* print messages coming back from server */ 
47 extern int connected} /* connected to server */ 

48 extern int fromatty}3 /* input is from a terminal */ 

49 extern int interactive} /* interactively prompt on m* cmds */ 

50 extern int debug} /* debugging level */ 

51 extern int bell; /* ring bell on cmd completion */ 

52 extern int doglob} /* glob local file names */ 

53 extern int autologin; /* establish user account on connection */ 
54 extern char typenamel 32]; /* name of file transfer type */ 

55 extern int type; /* file transfer type */ 

56 extern char structname[32]3; /* name of file transfer structure */ 
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57 extern int stru$ /* file transfer structure */ 

58 extern char formname[ 32]; /* name of file transfer format */ 

59 extern int form} /* file transfer format */ 

60 extern char modename[ 32]; /* name of file transfer mode */ 

61 extern int mode} /* file transfer mode */ 

62 extern char bytenamel[ 32]; * local byte size in ascii */ 

63 extern int bytesize3 /* local byte size in binary */ 

64 

65 extern char *hostname $3 /* name of host connected to */ 

66 extern struct servent “sp3 /* service spec for tcp/ftp */ 

67 

68 extern jmp buf toplevel; /* non-local goto stuff for cmd scanner */ 
69 

70 extern char Linel 200]; /* input line buffer */ 

71 extern int margc$ /* count of arguments on input line */ 
72, extern char mar gv 5 /* args parsed from input line */ 

73 

74 extern int options} /* used during socket creation */ 

75 

76 [* 

77 * Format of command table. 

78 */ 

79 extern struct cmd { 

80 char *c name} /* name of command */ 

81 char *c help; /* help string */ 

82 char c bell; /* give bell when command completes */ 
83 char c conn; /* must be connected to use command */ 
84 int (*c handler)(); /* function to call */ 

85 $5 

86 


87 extern char *tail()3 
88 extern char *remglob()3 
89 extern int errno3 
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/*Q(#)varpat.h 


#define 


#define 
#define 
#define 
#define 


connected 


connecthelp 
mdeletehel p 
receivehelp 
verbosehelp 
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1.8 4/11/85*/ 


conned 


connhelp 
mdelhelp 
recehelp 
verbhelp 
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1 #ifndef Lint 
2 static char sccsid[] = 
3 " @C#)cmds.c 1.24 8/28/85" 
4 +#endif 
5 

6 / ¥ 
7 ™* FTP User Program -- Command Routines. 
8 oe ii 
9 #include "ftpc.h" 
10 


11 extern char “globerr; 

12 extern char **xglob(); 
13. extern char **xmkarglist()3 
14 extern short gflag; 

15 extern char *remglob(); 
16 extern char *getenv()3 

17. extern char *xstrchr();3 
18 extern char *“xstrrchr() 


; 
19 static char **glizept = (char **)Q; 


20 

21 +#define BUFSIZ 1024 

22 

23. /* 

24 ™* Connect to peer server and 

25 * auto-login, if possible. 

26 / 

27 setpeer(argc, argv) 

28 int argc; 

29 char *argv[]; 

30 { 

31 struct hostent *host, *hookup()3 

32 int port; 

33 int madeargs = 0; 

34 

35 if (connected) { 

36 xoprintf(xstdout, 

37 "Already connected to %s, use close first.\n", 
38 hostname) 3 

39 return$3 

40 } 

41 if (arge < 2) { 

42 xstrcat(line, " ")3 

43 xoprintf(xstdout,'(to) |); 
44 xfflush( xstdout )3 

45 xgets(&line[xstrlen(line)])3 
46 argv = xmkarglist( line, &argce )}3 
47 madeargs = 13 

48 } 

49 if (arge < 2 || argc > 3) { 

50 xoprintf(xstdout,"usage: Zs host-name [port]\n", argv{0]); 
51 goto endspeer} 

52 } 

53 port = sp->s port$ 

54 if (arge > 2) { 

55 port = xatoi(argvl2]); 


56 if (port <= 0) { 
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57 xoprintf(xstdout,"%s: bad port number-- %s\n", 
58 arevl1], argvl2]); 
59 xoprintf(xstdout,"usage: %s host-name [port ]\n", argvl0]); 
60 goto endspeer} 

61 } 

62 } 

63 port = xhtons(port)}; 

64 host = hookup(argvl1], port); 

65 if (host) { 

66 connected = 1; 

67 if (autologin && fromatty ) 

68 Login(host)3 

69 } 

70 endspeer: 

71 if( madeargs ) 

72 xdealglob( argv )3 

73} 

74 

75 struct types { 

76 char *t name3 

77 char *t mode3 

78 int t type; 

79 char *t arg} 

80 } typesl] = { 

81 { “ascii”, ear TYPE A, 0 }, 

82 { "binary", oe ba TYPE I, 0 }, 

83 { "image", al Se TYPE I, 0 3, 

84 { “ebcdic", Ms TYPE E, 0°}, 

85 { "tenex", i TYPE L, bytename }, 
86 0 

87 33 

88 

89 /* 

90 ~* Set transfer type. 

91 ¥ / 

92 settype(argc, argv) 

93 char *arevl ]3 

94 { 

95 register struct types *“p3 

96 int comret$3 

97 

98 if (arge > 2) { 

99 char “sep; 

100 

101 xoprintf(xstdout,"usage: %s [", argvl0]); 
102 sep =" "5 

103 for (p = types; p->t_ name; pt+) { 
104 xoprintf(xstdout,"%s%s", sep, p->t_ name); 
105 if (*sep == ' ') 

106 sep =" | "3 

107 } 

108 xoprintf(xstdout," ]\n"'); 

109 return} 

110 } 

111 if (arge < 2) { 


Li2 xoprintf(xstdout,"Using %s mode to transfer files.\n", typename); 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
Lot 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
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return3 
} 
for (p = types; p->t name3 p++) 
if (xstremp(argv[1], p->t name) == 0) 


break3 


if (p->t_ name == 0) { 
xoprintf(xstdout,"%s: unknown mode\n", argvl1])3 
returns 


if ((p->t_arg 
comret 
else 
comret 
if (comret == 


!= XNULL) && (*(p->t_arg) != '\0O')) 
= command ("TYPE %s 4s", p->t_mode, p->t_arg)} 


= command("TYPE Zs", p->t_mode)3 
COMPLETE) { 


xstrcpy(typename, p->t name); 


type = 


5 
/* 


p-?t_ type; 


* Set binary transfer type. 


vs / 
/*VARARGS*/ 
setbinary() 


call(settype, 


} 
/[* 


* Set ascii transfer 
vv / 

/*VARARGS* / 
setascii() 


call(settype, 


3 
/[* 


* Set tenex transfer 
+ / 

/*VARARGS* / 
settenex() 


call(settype, 


} 
/* 


"type", "binary", 0)3 


type. 


"type", "ascii", 0); 


type. 


"type", "tenex", 0)3 


* Set ebcdic transfer type. 


Ye / 
/*VARARGS* / 
setebcdic() 


{ 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
19] 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 


call(settype, "type", "ebcdic", 0)3 


} 
/* 


* Set file transfer mode. 
ve / 
setmode(argc, argv) 

char *argvL ]; 


{ 
xoprintf(xstdout,"We only support %s mode, sorry.\n", modename); 
} 
/* 
* Set file transfer format. 
*/ 


setform(argc, argv) 
char *arevl 3 


{ 
xoprintf(xstdout,"We only support %s format, sorry.\n", formname)}; 
} 
/* 
* Set file transfer structure. 
*/ 


setstruct(argc, argv) 
char *argevl ]; 


{ 
xoprintf(xstdout,"We only support %s structure, sorry.\n", structname)3 
} 
/* 
* Send a single file. 
* / 


put(argce, argv) 
int argc} 
char *argvl ]; 


char *cmd3 

char *remote3 
char “local $3 

int madeargs = 03 
int madeglob = 03 


if (argc == 2) 
argc++, remote = argvL1]; 

else if (argc < 2) { 
xstreat(line, " '); 
xoprintf£(xstdout,''(local-file)")3 
xfflush( xstdout )3 
xgets(&line[xstrlen(line)])3 
argv = xmkarglist( line, &argce )3 
madeargs = 13 
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225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
2a2 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
Zi 
272 
273 
274 
275 
276 
277 
278 
279 
280 


endput: 


ate 
a 


else { 
remote = argvl2]3 


if( arge < 2 ) { 


xoprintf£(xstdout,"%s Local-file [remote-file]\n", argv[0]); 


goto endput3 


if (arge < 3) { 
xstrceat(line, " '); 


xoprintf£(xstdout,"(remote-file, %s is default) ", argvl1] ); 


xfflush( xstdout )3 
xgets(&lineLxstrlen(Line) ])3 
if( madeargs ) 

xdealglob( argv )3 


argv = xmkarglist( line, &argce )}3 


madeargs = 13 

remote = argvl2]; 
} 
if (argc < 3) { 

remote = argvL1]; 
} 


local = argvil1]; 

if (!(madeglob = globulize(&local))) 
goto endput$ 

emd = (argvl0][0] == 'a') ? "APPE" : 

sendrequest(cmd, local, remote )3 


if( madeglob && doglob ) 
xdealglob( glizept )3 
if( madeargs ) 
xdealglob( argv ); 


* Send multiple files. 


mput(argc, argv) 


{ 


char *aregvL J; 


char **cpp, **gargs = XNULL3 
int madeargs = 03 

int cfrval3 

int doall = 03 


if (argc < 2) { 
xstreat(line, " '")3 


"STOR" 


xoprintf(xstdout,"(local-files) "); 


xfflush( xstdout )5 
xgets(&line[xstrlen(line) ])3 


argv = xmkarglist( line, &arge ); 


madeargs = 13 


} 
if (arge < 2) { 


xoprintf(xstdout,"%s local-files\n", argvl0]); 


goto endmput; 
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281 cpp = argv + 1; 

282 if (doglob) { 

283 gargs = xglob(cpp)3 

284 if (globerr != XNULL) { 

285 xoprintf(xstdout,"%s\n", globerr)3; 
286 if (gargs) 

287 xdealglob(gargs)3 
288 goto endmput ; 

289 } 

290 

291 if (gargs != XNULL) 

292 cpp = gargs} 

293 for ($3 *cpp != XNULL; cpp++) 

294 { 

295 if( !doall ) 

296 cfrval = confirm(argvl0], *cpp); 
297 if( cfrval == ‘'a' ) 

298 doall = 13 

299 if( cfrval == 'q' ) 

300 break; 

301 af °¢ cfirval.) 

302 sendrequest("STOR", “cpp, “cpp)3 
303 

304 if (gargs != XNULL) 

305 xdealglob(gargs)3 

306 endmput: 

307 if( madeargs ) 

308 xdealglob( argv )3 

309 } 

310 

311 /* 

312 * Receive one file. 

313. */ 

314 get(argc, argv) 

315 char “argv[ ]3 

316 { 

317 int madeargs = 03 

318 int madeglob = 03 

319 char *local3 

320 

321 if (argc == 2) 

322 argct+, local = argvl1]; 

323 else if (argc < 2) { 

324 xstreat(line, " "); 

325 xoprintf(xstdout,'(remote-file) "); 
326 xfflush( xstdout )3 

327 xgets(&line[xstrlen(line) ]); 

328 argv = xmkarglist( line, &arge )3 
329 madeargs = 1} 

330 } 

331 else { 

332 local = argv(2]; 

333 

334 if (argc < 2) { 

335 xoprintf(xstdout,"%s remote-file [ local-file ]\n", argv[0]); 


336 goto endget; 
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337 

338 if (argc < 3) { 

339 xstreat(line, " "); 

340 xoprintf(xstdout,"(local-file, %s is default) ", argvl1l] )3 
341 xfflush( xstdout )3 

342 xgets(&line[xstrlen(Line) ]); 

343 if( madeargs ) 

344 xdealglob( argv )3 

345 argv = xmkarglist( line, &arge ); 
346 . madeargs = 13 

347 local = argvl2]; 

348 } 

349 if (argc < 3) { 

350 local = argv[1]; 

351 } 

352 if (!(madeglob = globulize(&local))) 

353 goto endget} 

354 recvrequest("RETR", local, argvl1], "w''); 
355 endget: 

356 if( madeglob && doglob ) 

357 xdealglob( glizept )3 

358 if( madeargs ) 

359 xdealglob( argv ); 

360 } 

361 

362 /* 

363 * Get multiple files. 

364 */ 

365 mget(argc, argv) 

366 char *argvl ]3 

367 §{ 

368 char *cp3 

369 int madeargs = 03 

370 int cfrval; 

371 int doall = 03 

372 

373 if (argc < 2) { 

374 xstreat(line, " ")3 

375 xoprintf(xstdout,'"(remote-files) '')3 
376 xfflush( xstdout )3 

377 xgets(&line[xstrlen(line)]); 

378 argv = xmkarglist( line, &argce )}3 
379 madeargs = 1; 

380 } 

381 if (arge < 2) { 

382 xoprintf(xstdout,'"%s remote-files\n", argvl0])3 
383 goto endmget 5 

384 

385 while ((cp = remglob(argc, argv)) != XNULL) 
386 { 

387 if( !doall ) 

388 cfrval = confirm(argvl0], cp ); 
389 if( cfrval == 'a' ) 

390 doall = 13 

391 if( cfrval == 'q' ) { 

392 while ((cp = remglob(argc, argv)) != XNULL) 
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393 ; 

394 break} 

395 } 

396 if ( cfrval ) 

397 recvrequest("RETR", cp, cp, "w'')$ 
398 } 

399 endmget: 

400 if( madeargs ) 

401 xdealglob( argv ); 

402 } 

403 

404 char templ16] = { 0 }; 

405 char * 

406 remglob(argc, argv) 

407 char *aregvl ]; 

408 { 

409 [* 

410 char temp[16]; 

411 %* / 

412 static char buf[MAXPATHLEN] = {0}; 

413 static XFILE *ftemp = XNULL; 

414 static char **args}3 

415 int oldverbose3 

416 char “cp, *mode}3 

417 int ftemi3 

418 int oldtype; 

419 char oldtname[25]; 

420 

421 if (!doglob) { 

422 if (args == XNULL) 

423 args = argv} 

424 if ((cp = *++args) == XNULL) 

425 args = XNULL; 

426 return (cp)3 

427 

428 if (ftemp == XNULL) { 

429 xstrcpy(temp, SCRATCHFILE )3; 

430 xmktemp(temp) $ 

431 oldverbose = verbose, verbose = 0; 

432 oldtype = type3 

433 if( oldtype != TYPE A ) { 

434 /* 

435 * do remote globbing in ascii mode 
436 */ 

437 xstrcepy( oldtname, typename )3 
438 call( settype, "type", "ascii", 0 )3 
439 5 

440 for (mode = "w"s *++argv != XNULL3; mode = ''a'') 
441 recvrequest ("NLST", temp, *argv, mode); 
442 if( oldtype != TYPE A ) { 

443 /* 

444 * restore original type 

445 */ 

446 call( settype, "type", oldtname, 0 ); 
447 } 


448 verbose = oldverbose}3 
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449 ftemi = xdopen(temp, XFREAD | XFASCII, FILE NAME )3 
450 xunlink(temp, FILE NAME )3; 

451 ftemp = xodopen( ftemi, "r" ); 

452 if (ftemp == XNULL) { 

453 xoprintf(xstdout, 

454 "can't find list of remote files, oops\n")3 
455 return (XNULL); 

456 } 

457 } 

458 | if (xogets(buf, sizeof (buf), ftemp) == XNULL) { 

459 xclose(xfileno(ftemp)), ftemp = XNULL}3 

460 return (XNULL)$ 

461 

462 if ((cp = xstrcehr(buf, '\n')) != XNULL) 

463 *cp = '\0'$ 

464 return (buf); 

465 } 

466 

467 char * 

468 onoff (bool) 

469 int bool; 

470 { 

471 

472 return (bool ? "on" : "off'')3 

473 } 

414 

475 /* 

476 * Show status. 

477, */ 

478 status(argc, argv) 

479 char *“aregvl ]; 

480 { 

481 

482 if (connected) 

483 xoprintf(xstdout,"Connected to %s.\n", hostname) 3 
484 else 

485 xoprintf(xstdout,"Not connected. \n");3 

486 xoprintf(xstdout,"Mode: %s$3 Type: %s$ Form: %s$ Structure: %s\n", 
487 modename, typename, formname, structname)}3 

488 xoprintf(xstdout,"Verbose: %s3; Bell: %s3 Prompting: %s3 Globbing: %s\n", 
489 onoff(verbose), onoff(bell), onoff(interactive), 
490 onoff(doglob))3 

491 xoprintf(xstdout,"'Hash mark printing: %s3 Use of PORT cmds: %s\n", 
492 onoff(hash), onoff(sendport))3; 

493 } 

494 

495 /* 

496 * Set beep on cmd completed mode. 

497 */ 


498 /*VARARGS*/ 
499 setbell() 


500 f 

501 

502 bell = !bell; 

503 xoprintf(xstdout,'"Bell mode %s.\n", onoff(bell))3 


504 } 
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505 

506 /* 

507. * Turn on packet tracing. 

508 * 

509 /*VARARGS*/ 

510 settrace() 

511 { 

512 

513 trace = !trace;3 

514 xoprintf(xstdout,"Packet tracing %s.\n", onoff(trace)); 
515 } 

516 

517. /* 

518 * Toggle hash mark printing during transfers. 
519 * 

520 /*VARARGS*/ 

521 sethash() 


522 { 

523 

524 hash = thash3 

525 xoprintf(xstdout,"Hash mark printing %s", onoff(hash) )$ 
526 if (hash) 

527 xoprintf(xstdout," (%d bytes/hash mark)", BUFSIZ); 
528 xoprintf(xstdout,".\n")3. 

529 } 

530 

531 /* 

532 * Turn on printing of server echo's. 

533 ¥ 


534 /*VARARGS*/ 

535 setverbose() 

536 

537 

538 verbose = !verbose3 

539 xoprintf(xstdout,"Verbose mode %s.\n", onoff(verbose) )3 
540 } 

541 

542 /* 

543. * Toggle PORT cmd use before each data connection. 
544 * 

545 /*VARARGS*/ 

546 setport() 

547 { 

548 

549 sendport = !sendport} 

550 xoprintf(xstdout,"'Use of PORT cmds Z%s.\n", onoff(sendport))3 
551 } 

552 

553 /* 

554 * Turn on interactive prompting 

555 ™* during mget, mput, and mdelete. 

556 / 

557. /*VARARGS*/ 

558 setprompt() 

559 

560 
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561 interactive = !interactive$3 

562 xoprintf(xstdout,"Interactive mode %s.\n", onoff(interactive))$3 
563 } 

564 

565 /* 

566 * Toggle metacharacter interpretation 

567 * on local file names. 

568 «| 


569 /*VARARGS*/ 

570 setglob() 

571 { 

DIZ 

573 doglob = !doglob; 

574 xoprintf(xstdout,"Globbing %s.\n", onoff(doglob))3; 
575 } 

576 

577 /* 

578 * Set debugging mode on/off and/or 
579 * set level of debugging. 

580 */ 

581 /*VARARGS*/ 

582 setdebug(argc, argv) 


583 char *“argvLl]; 

584 { 

585 int vals 

586 

587 if (arge > 1) { 

588 val = xatoi(argvl1]); 
589 if (val < 0) f{ 

590 xoprintf£(xstdout,"%s: bad debugging value.\n", argv[1]); 
591 return$ 

592 } 

593 } else 

594 val = !debug; 

595 debug = val; 

596 if (debug) 

597 options |= SO DEBUG; 
598 else 

599 options &= ~SO DEBUG; 
600 xoprintf(xstdout,"Debugging %s (debug=%d).\n", onoff(debug), debug) 5 
601 } 

602 

603 /* 

604 * Set current working directory 

605 * on remote machine. 

606 ¥ 

607 cd(argc, argv) 

608 char “argvl ]; 

609 { 

610 int madeargs = 03 

611 

612 if (arge < 2) { 

613 xstrceat(line, " ")3 
614 xoprintf(xstdout,'(remote-directory) ")3 
615 xfflush( xstdout );3 


616 xgets(&linelxstrlen(line) ])3 
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617 argv = xmkarglist( line, &aregc )}3 
618 madeargs = 13 

619 

620 if (arge < 2) { 

621 xoprintf£(xstdout,'"%s remote-directory\n", argvl0]); 
622 goto endcd3 

623 } 

624 VOID command("CWD Zs", argvl1]); 

625 endcd: 

626 if( madeargs ) 

627 xdealglob( argv )3 

628 } 

629 

630 /* 

631 * Set current working directory 

632 * on local machine. 

633 * / 

634 lcd(argc, argv) 

635 char “argv ]3 

636 { 

637 char buf[MAXPATHLEN]; 

638 char “dir} 

639 int madeglob = 03 

640 int rval; 

641 int func code; 

642 

643 if (arge < 2) 

644 argct+, dir = (char *)0, func code = HOME DIR; 
645 else 

646 dir = argvl1], func code = FILE NAME; 
647 if (arge != 2) { 

648 xoprintf(xstdout,"%s local-directory\n", argvl0]); 
649 goto endlcd; 

650 

651 if (!(madeglob = globulize(&dir))) 

652 goto endlcd3 

653 if ((rval = xchdir(dir, func code)) < 0) { 
654 xperror(rval, dir)3 

655 goto endlcd; 

656 } 

657 endlcd: 

658 if( madeglob && doglob ) 

659 xdealglob( glizept )3 

660 } 

661 

662 /* 

663 * Delete a single file. 

664 */ 

665 delete(argc, argv) 

666 char *aregvl ]3 

667 { 

668 int madeargs = 03 

669 

670 if (argc < 2) { 

671 xstreat(line, " "); 


672 xoprintf£(xstdout,'(remote-file) '")3 
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673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 


xfflush( xstdout )3 
xgets(&Lline[xstrlen(line)])3 

argv = xmkarglist( line, &argc )3 
madeargs = 13 


if (arge < 2) { 
xoprintf(xstdout,'"%s remote-file\n", argvl0]); 
goto enddelete; 


} 
VOID command("DELE %s", argv[l1])3 


enddelete: 


} 


/* 
* Delete multiple files. 


if( madeargs ) 
xdealglob( argv )3 


mdelete(argc, argv) 


{ 


endmdel : 


} 


char *argvl]; 


char *cp3 

int madeargs = 03 
int cfrval; 

int doall = 03 


if (argc < 2) { 
xstreat(line, " '')3 
xoprintf(xstdout,''(remote-files) "); 
xfflush( xstdout )3 
xgets(&lineLxstrlen(line)])3 
argv = xmkarglist( line, &argc )3 
madeargs = 13 


if (arge < 2) { 
xoprintf(xstdout,"%s remote-files\n", argvL0]); 
goto endmdel; 


} 
while ((cp = remglob(argc, argv)) != XNULL) 


{ 
if( !doall ) 


cfrval = confirm(argvl0], cp); 
if( cfrval == 'a' ) 
doall = 15 
if( cfrval == 'q' ) { 
while ((cp = remglob(argce, argv)) != XNULL) 


break$ 


if ( cfrval ) 
VOID command("DELE %s", cp)$ 
} 


if( madeargs ) 
xdealglob( argv )3 
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729 

7300 =—/* 

731 * Rename a remote file. 

732 */ 

733 renamefile(argc, argv) 

734 char *argvl ]; 

735 { 

736 int madeargs = 03 

737 

738 if (arge < 2) { 

739 xstreat(line, " "); 

740 xoprintf(xstdout,'"(from-name) "); 
741 xfflush( xstdout )3 

742 xgets(&line[xstrlen(line) ])3 

743 argv = xmkarglist( line, &argc )3 
744 madeargs = 1} 

745 } 

746 if (arge < 2) { 

747° «usage: 

748 xoprintf(xstdout,"%s from-name to-name\n", argv[l0])3 
749 goto endrname;3 

750 } 

751 if (arge < 3) { 

752 xstrceat(line, " '")3 

753 xoprintf£(xstdout,"(to-name) '); 
754 xfflush( xstdout )3 

755 xgets(&line[xstrlen(Line)]); 

756 if( madeargs ) 

757 xdealglob( argv )3 

758 argv = xmkarglist( line, &arge )3 
759 } 

760 if (argc < 3) 

761 goto usage} 

762 if (command("RNFR %s", argvl1]) == CONTINUE) 
763 VOID command("RNTO %s", argv[2])3 
764 else 

765 VOID command("RNTO ''); /* keep server happy */ 
766 endrname: 

767 if( madeargs ) 

768 xdealglob( argv )3 

769} 

770 

771 = /* 

772 * Get a directory listing 

773. +=* of remote files. 

774 / 

775 Is(argc, argv) 

776 char *argvLl 3 

777 

778 char *“cmd3 

779 char *“rdir3 

780 char *lLfile; 

781 int madeglob = 03 

782 

783 if (arge < 2) 


784 argcet+, rdir = XNULL3 
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785 else 

786 rdir = argv[1]; 

787 if (arge < 3) 

788 argct+, lfile = "-"3 

789 else 

790 Lfile = argv[2]; 

791 if (arge > 3) { 

792 xoprintf(xstdout,"usage: %s remote-directory local-file\n", argv[0]); 
793 return} 

794 

795 emd = argvlO][0] == '1' ? "NLST" : "LIST"; 
796 if (xstremp(1file, "-") && !(madeglob = globulize(&lfile))) 
797 goto endls}3 

798 recvrequest(cmd, lfile, rdir, "w")3 

799 endls: 

800 if( madeglob && doglob ) 

801 xdealglob( glizept )3 

802 } 

803 

804 /* 

805 * Get a directory listing 

806 * of multiple remote files. 

807 */ 

808 mls(argc, argv) 

809 char *argvl ]3 

810 { 

811 char *cmd, *mode3 

812 int i, dest; 

813 char *rdir3 

814 char *lfile3 

815 int madeglob = 03 

816 int cfrval}3 

817 

818 if (arge < 2) 

819 argct+, rdir = XNULL; 

820 else 

821 rdir = aregvl1]; 

822 if (argc < 3) 

823 { 

824 argect+, lfile = "-"5 

825 dest = argc - 13 

826 } 

827 else 

828 { 

829 dest = arge - 13 

830 Lfile = argvldest ]; 

831 } 

832 emd = argv({O]({1] == '1' ? "NLST" : "LIST" 
833 if (xstremp(1lfile, "-") != 0) 

834 if (!(madeglob = globulize(&lfile)) || 
835 '(cfrval = confirm("local-file", 1lfile)) || 
836 cfrval == 'q' 

837 ) 

838 goto endmls;3 

839 for (i = 2, mode = "w"s i < dest + 1 3 i++, mode = "a") 


840 { 
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841 recvrequest(cmd, lfile, rdir, mode); 
842 rdir = argv[i]; 

843 } 

B44 endmls: 

845 if( madeglob && doglob ) 

846 xdealglob( glizept ); 

847 } 

848 

849 #ifndef SHELLESCAPE 

850 

851 /* 

852 * shell escape not implemented 

853 */ 

854 shell( ) 

855 

856 

857 xoprintf(xstdout, "shell escapes not implemented.\n" ); 
858 } 

859 

860 #else 

861 

862 /* 

863 * shell escape for a specifc OS 

864 */ 

865 shell() 

866 { 

867 xshell()$ 

868 } 

869 

870 #endif SHELLESCAPE 

871 

872 

873 /* 

874 ™* Send new user information (re-login) 

875 */ 

876 user(argc, argv) 

877 int argc$ 

878 char **“argv3 

879 { 

880 char acct[80], *xgetpass()3 

881 int n3 

882 int madeargs = 03 

883 char *“password3 

884 char “account;3 

885 

886 if (argc < 2) { 

887 xstreat(line, " "); 

888 xoprintf(xstdout,'(Remote Username) ''); 
889 xfflush( xstdout )3 

890 xgets(&linelxstrlen(line)])3 
891 argv = xmkarglist( line, &arge )3 
892 madeargs = 15 

893 

894 if (arge < 2 || arge > 4) { 

895 xoprintf(xstdout, 

896 "usage: %s username [password] [account ]\n", argv[0J): 
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897 goto enduser} 

898 } 

899 n = command("USER %s", argvl1])3 

900 if (m == CONTINUE) { 

901 if (arge < 3 ) 

902 password = xgetpass("Remote Password: '"), argctt$ 
903 else 

904 password = argv[2]; 

905 n = command("PASS %s", password)3 

906 if (n == CONTINUE) { 

907 if (arge < 4) { 

908 xoprintf(xstdout, "Remote Account:")$ 

909 VOID xfflush(xstdout)3 

910 VOID xogets(acct, sizeof(acct) - 1, xstdin)3 
911 acct[xstrlen(acct) - 1] = '\0'3 

912 account = acct$ 

913 argctt; 

914 } 

915 else 

916 account = arevl3]; 

917 n = command("ACCT Zs", account )3 

918 } 

919 

920 if (n != COMPLETE) { 

921 xoprintf(xstderr, "Login failed.\n"); 

922 goto enduser}3 

923 } 

924 if( madeargs ) 

925 xdealglob( argv )3 

926 return (1)3 

927 enduser: 

928 if( madeargs ) 

929 xdealglob( argv )3 

930 return( 0 )3 

931 } 

932 

933 /* 

934 * Print working directory. 
935 */ 

936 /*VARARGS*/ 

937 pwd() 

938 { 

939 int noverbose = 03 

940 

941 if( !verbose ) 

942 

943 noverbose = 
944 verbose = 13 
945 } 

946 VOID command("XPWD"') 3 
947 if( noverbose ) 

948 verbose = 03 
949 } 

950 

951 /* 

952 * Make a directory. 
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953 */ 

954 makedir(argc, argv) 

955 char *argvl ]; 

956 { 

957 int madeargs = 0; 

958 

959 if (arge < 2) { 

960 xstreat(line, " "); 

961 xoprintf(xstdout,'"(directory-name) ")3 
962 xfflush( xstdout )$3 

963 xgets(&line[xstrlen(line)]); 

964 argv = xmkarglist( line, &argc )3 
965 madeargs = 1; 

966 } 

967 if (argc < 2) { 

968 xoprintf(xstdout,'"%s directory-name\n", argvL0])3 
969 goto endmkdir; 

970 } 

971 VOID command("XMKD %s"", argvLl1])3 

972 endmkdir: 

973 if( madeargs ) 

974 xdealglob( argv ); 

975 } 

976 

977. _/* 

978 * Remove a directory. 

979 */ 

980 removedir(argc, argv) 

981 char *arevl J; 

982 { 

983 int madeargs = 03 

984 

985 if (arge < 2) { 

986 ~  xstreat(line, " '')3 

987 xoprintf(xstdout,'(directory-name) ")3 
988 xfflush( xstdout )$ 

989 xgets(&linel[xstrlen(line)]); 

990 argv = xmkarglist( line, &argc )3 
991 madeargs = 1; 

992 

993 if (arge < 2) { 

994 xoprintf(xstdout,'%s directory-name\n", argv[0])3; 
995 goto endrmdir3 

996 } 

997 VOID command("XRMD %s", argv[l1])3 

998 endrmdir: 

999 if( madeargs ) 

1000 xdealglob( argv )3 

1001 } 

1002 

1003. /* 

1004 * Send a line, verbatim, to the remote machine. 
1005 */ 

1006 quote(arge, argv) 

1007 char *argvL ]3 


1008 { 
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1009 int i3 

1010 char buf[BUFSIZ]; 

1011 int madeargs = 03 

1012 

1013 if (arge < 2) { 

1014 xstreat(line, " ")3 

1015 xoprintf(xstdout,''(command line to send) ")3 
1016 xfflush( xstdout )3 

1017 xgets(&line[xstrlen(line)])3 
1018 argv = xmkarglist( line, &argce )3 
1019 madeargs = 13 

1020 } 

1021 if (arge < 2) { 

1022 xoprintf(xstdout,"usage: %s line-to-send\n", argv[0]); 
1023 goto endquote3 

1024 } 

1025 xstrepy(buf, argv[1]); 

1026 for (i = 23 i < argc; itt) { 

1027 xstrceat(buf, '' ")s; 

1028 xstrceat(buf, argvlil); 

1029 } 

1030 VOID command(buf )3 

1031 endquote: 

1032 | if( madeargs ) 

1033 xdealglob( argv )3 

1034 } 

1035 

1036 /* 

1037. * Ask the other side for help. 

1038 = */ 

1039 rmthelp(argc, argv) 

1040 char *argvL]; 

1041 { 

1042 int oldverbose = verbose} 

1043 

1044 verbose = l3 

1045 VOID command(arge == 1 ? "HELP" : "HELP %s", argv[1])3; 
1046 verbose = oldverbose}3 
1047} 

1048 

1049 /* 

1050 * Terminate session and exit. 

1051 */ 


1052. /*VARARGS*/ 

1053 quit() 

1054 { 

1055 

1056 if (connected) 

1057 disconnect()}3 
1058 xexit(0)3 

1059 } 

1060 

1061 /* 

1062 * Terminate session, but don't exit. 
1063 % / 

1064 disconnect() 
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1065 
1066 
* 1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
_ 1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 


{ 


5 


extern XFILE “cout$3 
extern XFILE *cin3 
extern int data} 


if (!connected) 
returns 
VOID command("QUIT") 3; 
VOID xclose( xfileno(cout))3 
VOID xclose( xfileno(cin)); 
cout = XNULL3 
cin = XNULL; 
connected = 03 
data = -l; 


confirm(cmd, file) 


{ 


} 


char *cmd, *file3 
char line[BUFSIZ]; 


if ((!interactive) || (!fromatty)) 
return (1)3 


xoprintf(xstdout,"%s %s ?(n==don't,a==do all,q==do no 


cmd, file); 
xfflush(xstdout )$ 
xgets(line) $ 
switch ( *line ) { 
case 'n': 
case 'N': 
return( 0 ); 
case ‘y': 
case ‘Y's 
return( 'y' ); 
case 'A': 
case ‘a's: 
return( ‘a’ )3 
case 'Q': 
case 'q': 
return( 'q' )3 
default: 
break3 


return(1)3 


fatal (msg) 


{ 


} 


[* 


* Glob a local file name specification with 


char *“msg3 


xoprintf(xstderr, "ftp: %s\n"'); 
xexit(1)3 


more,y==do)? ", 
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1121 * the expectation of a single return value. 

1122. * Can't control multiple values being expanded 
(1123. * from the expression, we return only the first. 

1124 * 


1125 static 
1126 globulize(cpp) 


1127 char **cpp3 

1128 { 

1129 char **globbed} 

1130 char *argv[2]; 

1131 

1132 if (!doglob) 

1133 return (1)3 

1134 argvl0] = *cpp3 

1135 argvl1] = (char *)0; 

1136 globbed = xglob( argv )3 

1137 if (globerr != XNULL) { 

1138 xoprintf(xstdout,"%s: %s\n", *cpp, globerr)3; 
1139 if (globbed) 

1140 xdealglob(globbed)3 
1141 return (0)3 

1142 } 

1143 if (globbed) { 

1144 *cpp = *globbed; 

1145 /* don't waste too much memory */ 
1146 glizept = globbed; 

1147 

1148 else 

1149 return( 0 )3 

1150 return (1)3 

Pest, <3 

1152 

1153 lls € argc, argv ) 

1154 


1155 int argc; 

1156 char *argvl ]; 

1157 

1158 if(€ arge > 1 ) 

1159 Llist( argc, argv, LS ARG ); 
1160 else 

1161 llist( argc, argv, LS )3 
1162 } 

1163 

1164 ldir(€ argc, argv ) 

1165 

1166 int argc; 

1167 char *argvl ]3 

1168 

1169 if(€ argc > 1 ) 

1170 llist( argc, argv, LSLONG ARG )3 
1171 else 

1172 llist( argc, argv, LSLONG ); 
rigs} 

1174 

1175 Llist( argc, argv, func code ) 

1176 
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1177 
1178 
- 1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 
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int argc$ 
char *argv[ ]; 


int func code; 
{ 
char **argvl35 
char **argv2} 
char *pt$ 
if( arge > 1 ) 
{ 
if ( doglob ) { 
argvl = xglob( &argv[1] ); 
if( argvl == XNULL || globerr ) { 
xoprintf( xstdout, "No file name matches." )3 
if ( argvl != XNULL ) 
xdealglob( argvl );3 
return$ 
} else f{ 
argvl = &argvl 1]; 
} 
argv2 = argvl; 
for ( pt = *argv2++ 3 pt 3 pt = *argv2++ ) 
xls( xfileno(xstdout), pt, func code ); 
} 
if( doglob ) 
xdealglob( argvl ); 
} 
else 
xls( xfileno(xstdout), (char *)0, func code );} 
} 
} 
lpwd( argc, argv ) 


int argc$3 
char “aregvl ]; 


char buf[MAXPATHLEN + 1]; 


int success} 
success = xpwd( buf, sizeof( buf ), PWD )3 
if( !success ) 
xoprintf( xstdout, "local current directory is: %s\n", buf )3 
else 
xoprintf( xstdout, 
"current directory unknown %s\n", xrerror( success ) )} 
} 
} 
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#ifndef 


lint 


static char sccsid[] = 
" @(#)cmdtab.c 1.9 6/3/85" 


#endif 


#include "ftpc.h" 


/* 


* User FTP -- Command Tables. 


ve / 
int 
int 
int 
int 
int 
int 
int 
int 
int 
int 
int 


char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


setascii(), setbell(), setbinary(), setdebug(), setform(); 
setglob(), sethash(), setmode(), setpeer(), setport ()3 
setprompt(), setstruct()}3 

settenex(), settrace(), settype(), setverbose()$; 
disconnect ()3 

cd(), lcd(), delete(), mdelete(), user(); 

1ls(), mis(), get(), mget(), help(), put(), mput()3 
quit(), renamefile(), status()3 

quote(), rmthelp(), shell()3 

pwd(), makedir(), removedir()3 

1lls(), lpwd(), ldir()3 


appendhelpL] = append to a file"; 

asciihelp[] = "set ascii transfer type"; 
beephelp[] = beep when command completed"; 
binaryhelp[] = "set binary transfer type"; 

cdhelp[] = change remote working directory"; 
connecthelpl |] = "connect to remote tity; 
deletehelp[] = delete remote file"; 

debughelpl] = "toggle/set debugging mode"; 
dirhelp[] = v List contents of remote directory" 
disconhelpL] = “terminate ftp session"; 


"set file transfer format" 


“toggle metacharacter expansion of local file names" 
“toggle printing '#' for each buffer transferred"; 
“print local help information"; 


formhelpl ] 
globhelpl ] 
hashhelpl ] 
helphel pl ] 


lcdhelp[] = “change local working directory" 

lshelp[] = "nlist contents of remote directory" 
mdeletehelpl] = "delete multiple files"; 

mdirhelp[] = "list contents of multiple remote directories"; 
mgethelp[] = "set multiple files"; 

mkdirhelpl] = make directory on the remote machine"; 
mlshelp[] = "nlist contents of pe remote directories"; 


modehel pl ] "set file transfer mode 
mputhel pl | "send multiple files"; 
porthelpl ] "toggle use of PORT cmd for each data connection"; 


prompthelp[] = force interactive prompting on multiple commands"; 


pwdhelp[] = print working directory on remote machine"; 
quithelp[] = "terminate ftp session and exit"$ 
quotehelp[] = "send arbitrary ftp command"; 
receivehelp[] = "receive file"; 


remotehelpl ] get help from remote server"; 
renamehelpL ] "rename file"; 

rmdirhelp[] = "remove directory on the remote machine"; 
sendhelp[] = "send one file"$ 

shellhelp{] = "escape to the shell"; 
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char 
char 
char 
char 
char 
char 
char 
char 
char 
char 


struct cmd cmdtab[] = { 


statushelpl ] = 


structhelpl ] 
tenexhelp[] = 
tracehelp[] = 
typehelp[] = 
userhelpl] = 
llshelpL] = 
Lpwdhelp[] = 
ldirhelp[] = 


verbosehelp[] = 


that 


ft 


"out", 


" 


"rename", 


rmdir”, 
send", 
"status", 
at tt 
struct , 
" " 
tenex", 
"trace", 
" LB 
type , 
"user", 
verbose", 


TP ret pe PN OR RO PR PR PR AR PRR PR IR PE PR PR PR PPP OR PRA OS OO RS RS RO SOM RS OS RS e™s ss mee mms 

= 
Yr 
Pu 
~- 
Ky 

- 

= 


i] 


remotehelp", 
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"show current status"$ 
"set file transfer structure 
"set tenex file transfer type 


"toggle packet tracing"3 


"set file transfer type"; 

"send new user information"; 

"list directory on local machine"; 
"print local current directory(s)"$ 
"long listing of local directory(s)"$ 


"toggle verbose mode" 


mt. 
? 
tw, 
? 


shellhelp, 0, 0, shell }, 
appendhelp, 1, 1, put }, 
asciihelp, 0, 1% setascii }, 
beephelp, 0, 0, setbell }, 
binaryhelp, 0, i, setbinary }, 
quithelp, 0, 0, quit }, 
cdhelp, 0, Ls cd}, 
disconhelp, 0, 1, disconnect }, 
deletehelp, 0, l, delete }, 
debughelp, 0, 0, setdebug }, 
dirhelp, i ie ls }, 
formhelp, 0, Ls setform }, 
receivehelp, Is Ls get }, 
globhelp, 0, 0, setglob }, 
hashhelp, 0, 0, sethash }, 
helphelp, 0, 0, help }, 
lcdhelp, 0, 0, led }, 
lshelp, 1; i ls }, 
mdeletehelp, iL Ls mdelete }, 
mdirhelp, I 1, mls }, 
mgethelp, 1, 1, mget }, 
mkdirhelp, 0, Ls makedir }, 
mlshelp, ie I mls }, 
modehelp, 0, Ig setmode }, 
mputhelp, i i mput }, 
connecthelp, 0, 0, setpeer }, 
prompthelp, 0, UP setprompt }, 
porthelp, 0, 0, setport }, 
sendhelp, {. i put }, 
pwdhelp, 0, iL pwd }, 
quithelp, 0, 0, quit .}, 
quotehelp, l, i quote }, 
receivehelp, Lig 1, get }, 
remotehelp, 0, Lig rmthelp }, 
renamehelp, 0, 1 renamefile }, 
rmdirhelp, 0, Ls removedir }, 
sendhelp, i ie put }, 
statushelp, 0, 0, status }, 
structheLp, 0, 1; setstruct }, 
tenexhelp, 0, bs settenex }, 
tracehelp, 0, 0, settrace }, 
typehelp, 0, is settype }, 
userhelp, 0, 13 user }, 
verbosehelp, 0, 05 setverbose }, 


Apr 30 23:02 1986 cmdtab.c Page 3 


113 tC "hdae" 5 ldirhelp, 0, 0, ldir }, 
114 f "Lis", llshelp, 0, 0, ile 4. 
115 { "Lpwd", lpwdhelp, 0, 0, lpwd }, 
116 Eee, helphelp, 0, 0, help }, 
117 { 0 }, 

118 }; 

119 


120 int NCMDS = (sizeof (cmdtab) / sizeof (cmdtab[0])) - 13 
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1 #iffmdef Lint 
2 static char sccsidL] = " @(#)ftp.c 1.20 6/21/85"; 
3 #endif 
4 
5 #include "ftpc.h" 
6 struct sckadr in hisctladdr = { AF INET };3 
7 struct sckadr in data addr = { AF INET }3 
8 int data = -l;3 = 
9 struct sckadr_ in myctladdr = { AF INET }; 
10 /* 
ll ™* Options and other state info. 
12 ve / 
13° int trace = 03 /* trace packets exchanged */ 
14 int hash = 03 /* print # for each buffer transferred */ 
15 int sendport = -13; /* use PORT cmd for each data connection */ 
16 int verbose = 03 /* print messages coming back from server */ 
17 int connected = 03; /* connected to server */ 
18 int fromatty = 03 /* input is from a terminal */ 
19 int interactive = 03 /* interactively prompt on m* cmds */ 
20 int debug = 0; /* debugging level */ 
21 int bell = 03 /* ring bell on cmd completion */ 
22 int doglob = 03 /* glob local file names */ 
23) int autologin = 03; /* establish user account on connection */ 
24 
25 char typename[32] = {0}; /* name of file transfer type */ 
26 int type = 03 /* file transfer type */ 
27 char structname[32] = {0}; /* name of file transfer structure */ 
28 int stru = 0; /* file transfer structure */ 
29 char formname[ 32] = {0}; /* name of file transfer format */ 
30 int form = 0} /* file transfer format */ 
31 char modename[32] = {0}; /* name of file transfer mode */ 
32) int mode = 03 /* file transfer mode */ 
33 char bytenamel 32] = {0}; /* local byte size in ascii */ 
34 int bytesize = 03 /* local byte size in binary */ 
35 
36 char *hostname = (char*)0;  /* name of host connected to */ 
37 
38 struct servent “sp = 03 /* service spec for tcp/ftp */ 
39 char Line[200] = {0}; /* input line buffer */ 
40 int marge = 03 /* count of arguments on input line */ 
41 char *emargv = (char **)0; /* args parsed from input line */ 
42 
43 int options = 03 /* used during socket creation */ 
44 


45 extern char *“xgetpass()3 

46 extern long xpasstnet(), xpassfnet()3 
47 extern long xtime()3 

48 extern XFILE *xodopen()3 


49 

50 #define SWAITMAX 90 /* wait at most 90 seconds */ 
51 #define SWAITINT 5 /* interval between retries */ 
52 

53 int Swaitmax = SWAITMAX; 

54 int Swaitint = SWAITINT; 

55 


56 XFILE *cin = XNULL, “cout = XNULL}3 
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57 XFILE *dataconn(); 


59 struct hostent * 
60 hookup(host, port) 


61 char *“host}3 
62 int port; 
63 { 
64 register struct hostent *“hp3 
65 int s, len; 
66 int rval; 
67 
68 bzero((char *)&hisctladdr, sizeof (hisctladdr))3 
69 hp = ghbname(host)3 
70 if (hp == XNULL) { 
71 static struct hostent def; 
72 static struct in addr defaddr; 
73 static char namebuf[128]; 
74 int inet addr(); 
75 
76 defaddr.s addr = inet _addr(host)3 
77 if (defaddr.s addr == -1) { 
78 xoprintf(xstderr, '"%s: Unknown host.\n", host)3 
719 return (0)3 
80 } 
81 xstrcpy(namebuf, host); 
82 def.h name = namebuf}3 
83 hostname = namebuf3 
84 def.h addr = (char *)&defaddr; 
85 def.h length = sizeof (struct in addr); 
86 def.h addrtype = AF INET; 
87 def.h aliases = 0; 
88 hp = &def3 
89 } 
90 hostname = hp->h_ name} 
91 hisctladdr.sin family = hp->h_addrtype}3 
92 s = xsocket(SOCK STREAM, (struct sockproto *)0, 
93 (struct sockaddr *)0, SO KEEPALIVE)$; 
94 if (s < 0) { 
95 xperror(s,"ftp: socket"); 
96 return (0)3 
97 } 
98 beopy(hp->h_ addr, (char *)&hisctladdr.sin addr, hp->h length); 
99 hisctladdr.sin port = port; 
100 if (( rval = xconnect(s,(char *)&hisctladdr)) < 0){ 
101 xperror(rval, "ftp: connect"); 
102 goto bad3 
103 } 
104 len = sizeof (myctladdr)3 
105 if ((rval = xsktaddr(s, (char *)&myctladdr)) < 0) { 
‘106 xperror(rval,"ftp: getsockname"'); 
107 goto bad; 
108 
109 xdup2( s, ( rval = xnewod() ) )3 
110 cin = xodopen(s, "r"); 
111 cout = xodopen(rval, "w''); 


112 if (cin == XNULL || cout == XNULL) { 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
129 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


bad? 


xoprintf(xstderr, "ftp: fdopen failed.\n"); 
if (cin) 
xclose(xfileno(cin))3 
if (cout) 
xclose(xfileno(cout))3 
goto bad; 


if (verbose) 

xoprintf(xstdout,"Connected to %s.\n", hp->h_ name) 3 
VOID getreply(0); /* read startup message from server 
return (hp); 


xclose(s)3 
return ((struct hostent *)0)3 


For now, non-interactive use of ftp requires explicate USER and 
PASS commands. 
Later, we can define an autologin procedure that will work for all 


systems. 


Login(hp) 


{ 


struct hostent *hp3 


char acct[80]3 
char “user, “pass} 
int n3 


if( !fromatty ) 
return( 0 )3 
user = acct} 
xoprintf(xstdout,''Remote User Name:")3; VOID xfflush(xstdout)3 
if( xogets(user, sizeof(acct) - 1, xstdin) == XNULL ) { 
if( xfeof( xstdin ) ) { 
xprintf£(: "\n™ js 
quat()% 
xexit( 0 )3 
} else { 


3 


if( xstrlen(acct) - 1 <= 0 ) 
return( 0 )3 
userLxstrlen(acct) - 1] = '\0'; 
n = command("USER %s", user)3 
if (n == CONTINUE) 
{ 
pass = xgetpass( "Remote Password:" )3 
xputchar( '\n' )3 
n = command("PASS %s", pass)3 
if (n == CONTINUE) 


return( 0 )3 


xoprintf(xstdout,''Remote Account: "); 
VOID xfflush(xstdout )3 
VOID xogets(acct, sizeof(acct) - 1, xstdin)3; 


’ 
% / 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
Zag 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 


acct[xstrlen(acct) - 1] = '\O'; 
n = command("ACCT %s", acct); 
} 


} 

if (n != COMPLETE) { 
xoprintf(xstderr, "Login failed.\n"); 
return (0)3 

} 


return (1)3 


} 


/*VARARGS 1*/ 
#ifdef zilog 
[* 


* Pick parameters from registers, and put them in an honest-looking 


ve / 
command(fmt, al, a2, a3, a4, a5, a6) 
char *fmt3 
int al, a2, a3, a4, a5, a6$3 


stack frame. 


{ 


#else 

command(fmt, args) 
char *“fmt3 

{ 


#endif 


int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aa6=a6; 


int how3 /* something for xioctl args to point to */ 


if (debug) { 
xoprintf(xstdout,"---> ")3 
_mydoprnt(fmt, &args, xstdout); 
xoprintf(xstdout,"\n")$3 
VOID xfflush(xstdout)3 

} 

if (cout == XNULL) { 
xperror (0, "No control connection for command")3 
return (0)3 


if( !empty( cin ) ) { 
/* 
* that all replies to previous commands have been 


wt 
o 


* stream, we are out of sync with the server, and 
* the data that is now present should be flushed. 
* | 

how = 13 

xioctl( xfileno( cout ), FIONBIO, &how ); 

if( verbose ) 


xoprintf( xstderr, "Old reply in command stream:\n" ); 


VOID getreply( 0 ); 
how = 03 
xioctl( xfileno( cout ), FIONBIO, &how )3 


} 


_mydoprnt(fmt, &args, cout)} 


* Since we are sending a new command, it is expected 


* processed. Thus, if there is any data in the command 
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225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 


xoprintf(cout, "\r\n"); 
VOID xfflush(cout); 
return (getreply(!xstrcemp(fmt, "QUIT")))3; 


} 
empty(f) 
XFILE *f3 
{ 
long mask} 
int rval}3 
if( f-> cnt > 0 ) 
return( 0 ); 
#ifndef NOSELECT 
mask = ( 1 << (xfileno( £ )))3 
rval = xselect( 20, &mask, (long *)0, OL 
return ( mask == 0 )3 
#telse 


return( 1 )3 
#endif NOSELECT 


: 

getreply(expecteof ) 
int expecteof}; 

{ 


register int c, n}3 
register int code, dig; 
int originalcode = 0, continuation = 03 


for (35). 4 


dig =n = code = 03 
while ((c = xgetc(cin)) != '\n') 
digt+; 


if (c == XEOF) { 
if( xfeof(cin) ) 


3 


{ 


{ 


if (expecteof) 
return (0)3 

xoprintf(xstdout, "lost connection.\n"); 

return( 5 )3 


} else { 


xoprintf(xstdout, “error on read.\n" )3 
return( n - '0O' )3 


3 
} 


if (verbose && c != "\r' 


(n == '5' && dig > 4)) 


xputchar(c)}3 
if (dig 

code = code * 10 
if (dig 

continuationtt$ 
Tf (Cn S= 0) 

n= C3 


== 4 && c == '-') 


< 4 && isdigit(c)) 


+ (c - '0')3 
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281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 


if (verbose || n == '5') f{ 
xputchar(c)3 
VOID xfflush (xstdout)3 


if (continuation && code != originalcode) { 
if (originalcode == 0) 
originalcode = code;3 
continue} 


if ( !continuation || (code == originalcode) ) 
return (n - '0');3 


sendrequest(cmd, local, remote) 


{ 


char *cmd, *lLocal, *remote3 


int (*closefunc)()3 

long bytes = 0, hashbytes = 10243 
long start, stop}; 

int read reply = 03 

int inod}3 

XFILE *inopt, *“outopt3 

int omode3 

struct ftp attr attributes; 


closefunc = XNULL3 
if (xstremp(local, "-") == 0) { 
inopt = xstdin3 
t else { 
omode = XFREAD; 
attributes.rep type = type; 
attributes.format = form; 
attributes.structure = stru3 
attributes.trans mode = mode; 
attributes.byte sz = bytesize}3 
inod = xftpopen( local, omode, FILE NAME, &attributes ); 
if( inod < 0 ) 
{ 
xperror( inod, local )3 
goto bad} 


inopt = xodopen( inod, "r" ); 

if (inopt == XNULL) { 
xoprintf(xstderr, "xodopen failed\n" )3 
xclose( inod )3 
goto bad; 


} 


closefunc = xclose$3 


if (initconn()) 
goto bad3 
read reply = 1; 
if (remote) { 
if (command('"%s %s", cmd, remote) != PRELIM) { 
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337 --read reply}; 

338 goto bad; 

339 } 

340 } else 

341 if (command("%s", cmd) != PRELIM) { 
342 --read reply; 

343 goto bad; 

344 } 

345 outopt = dataconn("w"')3; 

346 if (outopt == XNULL) 

347 goto bad3 

348 start = xtime();3 . 

349 bytes = xpasstnet( inopt, outopt ); 
350 stop = xtime();3 

351 if( closefunc != XNULL ) 

352 xclose( inod )3 

353 xclose( xfileno(outopt) )3 

354 data = -l; 

355 if( bytes < 0 ) 

356 

357 xperror( (int)bytes, "local" ); 
358 

359 VOID getreply(0);3 

360 done: 

361 if (bytes > 0 && verbose) 

362 ptransfer("sent", bytes, &start, &stop)3 
363 return$ 

364 bad: 

365 if (bytes > 0 && verbose) 

366 stop = xtime(); 

367 if (data >= 0) 

368 VOID xclose(data), data = -1l; 
369 if (closefunc != XNULL && inopt != XNULL) 
370 xclose( inod )3 

371 if (read reply == 1) 

372 VOID getreply(0)3 

373 goto done; 

374 } 

375 

376 recvrequest(cmd, local, remote, append ) 

377 char *cmd, “local, “remote, *append; 
378 { 

379 int (*closefunc)()3 

380 long bytes = 0, hashbytes = 1024; 
381 long start, stop} 

382 int read reply = 03 

383 int inod, outod3 

384 XFILE *“inopt, *outopt3 

385 int omode;3 

386 struct ftp attr attributes; 

387 

388 closefunc = XNULL3 

389 if (initconn()) 

390 goto bad; 

391 read reply = 13 


392 if (remote) { 
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393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 


/* fprintf(stderr, "bad return from command(%s %s) = Z%d\n", cmd, remote, x)$ 


int x$3 
if ((x = command("%s %s", cmd, remote)) != PRELIM) { 


--read reply}; 
goto bad3 
} 
} else { 
int x} 
if ((x = command(''%s", cmd)) != PRELIM) { 


/* fprintf(stderr, "bad return from command(%s) = %d\n", cmd, x)3 */ 


done: 


--read reply; 
goto bad; 
} 
} 
if (xstremp(local, "-") == 0) { 
outopt = xstdout; 
} else f 
omode = XFWRITE | XFCREAT | 
(( *append == 'a' )? XFAPPEND : XFTRUNC ); 
attributes.rep type = type} 
attributes.format = form$3 
attributes.structure = stru$ 
attributes.trans mode = mode; 
attributes.byte sz = bytesize}3 


outod = xftpopen(local, omode, FILE NAME, &attributes ); 


if( outod < 0 ) 
i 
xperror( outod, local )3 
goto bad; 
3 
outopt = xodopen( outod, "w" )3 
if( outopt == XNULL ) 
{ 
xoprintf(xstderr, "xodopen failed\n" ); 
xclose( outod ); 
goto bad; 


} 

closefunc = xclose}3 
} 
inopt = dataconn("r"); 
if (inopt == XNULL) 

goto bad3 
start = xtime()3 
bytes = xpassfnet( inopt, outopt )}3 
stop = xtime(); 
xclose( xfileno(inopt) )3 
data = -1;5 
if( closefunc != XNULL ) 

xclose( outod )3 
if( bytes < 0 ) 


xperror( (int)bytes, "local" ); 
VOID getreply(0);3 


if (bytes > 0 && verbose) 


ale 
w 
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449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 


bad: 


} 
/* 


ptransfer("received", bytes, &start, &stop)3 
returns 


if (bytes > 0 && verbose) 
stop = xtime(); 
if (data >= 0) 
VOID xclose(data), data = -13 
if (closefunc != XNULL && outopt != XNULL) 
xclose( outod )3 
if (read reply == 1) 
VOID getreply(0); 
goto done3 


* Need to start a listen on the data channel 
* before we send the command, otherwise the 
* server's connect may fail. 


nto 
rns 


initconn() 


{ 


noport: 


register char *“p, “a3 

int result, len}; 

int options = SO KEEPALIVE | SO ACCEPTCONN; 
int retry} 

int rval3 


/* 
data addr = myctladdr; 
* / 
bcopy(&myctladdr, &data addr, sizeof (struct sckadr in))} 
if (sendport) 
data addr.sin port = 03 /* let system pick one */ 
if (data != -1) 
VOID xclose (data)}3 
for (retry = 03 retry < swaitmax; xsleep (swaitint), retry += swaitint) 


data = xsocket(SOCK STREAM, (struct sockproto *)0, 
&data addr, options)3 

if (data >= 0 || (data != XEADDRINUSE && data != XENOBUFS)) 
break; 

} 


if (data < 0) { 
xperror(data, "ftp: socket"); 
return (1)3 
} 
len = sizeof (data addr); 
if ((rval = xsktaddr(data, (char *)&data addr)) < 0) { 
xperror(rval, "ftp: xsktaddr")$ 
goto bad; 


if (sendport) { 
a = (char *)&data addr.sin addr} 
p = (char *)&data addr.sin port} 
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505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
319 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
331 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
Be) 
556 
557 
558 
359 
560 
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#define UC(b) (((int)b)&0xf£) 


result = 


command("PORT %d,%d, 4d, 4d, 4d, 4d", 
uc(al0]), Uc(al1]), uc(al2]), uc(al3]), 


uc(pl0]), uc(pl1])); 


if (result == ERROR && sendport == -1) { 


sendport = 03 
goto noport$ 


} 
return (result != COMPLETE); 


return (0)3 


bad: 
VOID xclose(data), data = -13 
return (1)3 
} 
XFILE * 
dataconn(mode) 
char *mode3 
{ 
struct sckadr in from} 
int s, fromlen = sizeof (from)3 
s = xaccept(data, &from); 
if (s < 0) { 
xperror(s, "ftp: accept"); 
VOID xclose(data), data = -13 
return (XNULL)3 
} 
return (xodopen(data, mode)); 
} 


ptransfer(direction, bytes, tO, tl) 


5 
/* 


char *direction;3 
long bytes; 
long *tO, *tl; 


long sec3 


sec = *tl - *tO3 
if (sec <= 0) 
sec = l3 
xoprintf(xstdout,"%Zld bytes %s in %ld 
bytes, direction, sec, bytes 


seconds (%ld bytes/s)\n", 
/ sec )3 


Routines from here on are to use names introduced by 4.2 BSD. 


4. 
Xe / 


shutdown (fd, how) 
int fd, how; 


xioctl (fd, SIOCDONE, &how)3 


Apr 30 23:02 1986 ftp.c Page 11 


561 

562 /* 

563 mp - Even if doprnt is more wonderful than mydoprnt for systems which 
564 have doprnt, using doprnt is an incredible maintainance headache. 
565 In any case, we should support the same functionality on all 

566 systems. 

567 Hence, may doprnt rest in peace. 

568 */ 


569 mydoprnt(format, argp, FILEp) 
570 char *“format$ 

571 int *argp; 

572 XFILE *FILEp} 


573 { 

574 xoprintf£(FILEp, format, *“argp, *“(argpt+l), *(argpt+2), *(argpt+3), 
575 *(argpt4), *(argpt5))3 

576 3} 

577 


578 bzero (what, size) 
579 register char “what; 
580 register int size} 


581 { 

582 while (size-- > 0) 
583 *whatt+ = 03 
584 } 

585 


586 bcopy (from, to, size) 
587 register char *from, *to}3 
588 register int size$ 


589 { 

590 while (size-- > 0) 

591 *tot+ = *fromtt3 
592 } 

593 


594 bemp (left, right, size) 

595 register char “left, *right; 

596 register int size} 

597 { 

598 while (size-- > 0) 

599 if (*leftt+ != *right++) 


600 if (Oxff&(*--left) > Oxf£&(*--right )) 


601 return (1)3 
602 else 

603 return (-1); 
604 return (0)3 

605 } 

606 

607 

608 struct servent * gsbname (service, proto) 
609 char “service, *proto}3 


610 { 

611 static struct servent servstat}3 
612 

613 servstat.s name = service; 

614 servstat.s aliases = 03 

615 if (xstremp (service, "ftp") == 0) 


616 servstat.s port = (IPRT FTP); 
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else 

if (xstremp (service, "telnet") == 0) 
servstat.s port = (IPPORT TELNET); 

else 


return (0)3 
servstat.s proto = proto; 
return (&servstat)}3 


} 


struct hostent * 

ghbname(host) 

char *“host}3 

{ 
static struct hostent def} 
static struct in_addr defaddr; 
static char namebuf[128]; 
extern long xrhost ()3 


defaddr.s addr = xrhost(&host)3; 
if (defaddr.s addr == -1) 
return (0); 
xstrcpy(namebuf, host); 
def.h name = namebuf; 
def.h_ addr = (char *)&defaddr; 
def.h length = sizeof (struct in_addr)3 
def.h_ addrtype = AF INET; 
def.h aliases = 03 
return (&def)3 


} 
int inet addr (host) 
char *“host3 


{ 
5 


return (-1)3 
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[* 
AWh “GK 


Operating system specific initialization for ftp client. 
-e-stuff the doesn't seem worth the effort of providing 
general mechanisms for. 


ate ; 
ray 


WOON KDM HWP 


#include <xgenlib.h> 
10 #include <xpwd.h> 

11 #include <xspecial .h> 
12 typedef int jmp_ buf; 
13 int errno = 03 

14 int figit = 0; 

15. jmp buf toplevel = 03 
16 #include <ftpvar.h> 

17. jmp buf *envptr = {0}; 


19 extern int fromatty;3 /* ftp started from terminal */ 

20 extern int ttyinput; /* get in xoslib */ 
21 extern int conned}; /* true if connected to server */ 
22 /* extern astlconn()3 */ 


24 extern struct passwd *pw 5 


26 clientinit() 
27 { 


29 fromatty = ttyinput; /* true when used interactively */ 
30 /* set up routine to print out message and halt program */ 


32 /* 

33 emt(SREX,astlconn); 

34. &/ 

35. toplevel = (int ) & envptr; 


37 } 
38 /* 
39 lostpeer() 


41 extern XFILE “cout; 
42 extern int data} 


44 xoprintf( xstdout, "Lost Connection.\n" )3 
45 if (conned) { 

46 if (cout != XNULL) { 

47 shutdown(xfileno(cout), 1+1)3 
48 xclose(cout)3 

49 cout = XNULL; 

50 } 

51 if (data >= 0) { 

52 shutdown(data, 1+1); 

53 xclose(data)3 

54 data = -l; 
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57 } 
58 } 

59 */ 

60 gethbaddr() 
61 


62 } 
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#ifndef lint 
static char sccsidl] = " @(#)main.c 1.14 8/28/85" 
#endif 


/* 

* FTP User Program -- Command Interface. 
x / 

#include "ftpc.h" 


WOOnN Oi & | Db Fr 


10 int intr()3 

ll extern int data; 

12 extern char **xmkarglist()3 
13. extern char *xstrrchr()3 


16 xmain(argc, argv) 
17 char *argvl ]; 


20 * Don't use register declarations in this procedure -- Zilog 
21 * §8000 setret() (alias setjmp()) can't abide by them. 

22 * / 

23 char *cp3 

24 int top; 


26 margv = (char **)03 

27 sp = gsbname("ftp", "tcp")s; 

28 if (sp == 0) { 

29 xoprintf(xstderr, "ftp: ftp/tcp: unknown service\n"); 
30 xexit(1); 

31 } 

32 doglob = 13 

33 interactive = 13 

34 autologin = 13 

35 argc--, argvtt; 

36 while (argc > 0 && **argv == '-') { 

37 for (cp = *argv + 13 *cp3 cpt+) 
38 switch (*cp) { 


40 case 'd': 

4 options |= SO DEBUG; 
42 debugtt; 

43 break} 


45 case 'v': 
46 verbosett3 
47 break; 


49 case ‘t's 
50 tracett$ 
51 break; 


53 case ‘i's 
54 interactive = 03 
55 break$ 
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57 case 'n': 
58 autologin = 03 
59 break3 
60 
61 case ‘g's 
62 doglob = 03 
63 break} 
64 
65 default: 
66 . xoprintf(xstderr, 
67 "ftp: Zc: unknown option\n", *cp); 
68 xexit(1);3 
69 } 
70 argc--, argvtt; 
71 } 
72 [* 
73 * Set up defaults for FTP. 
74 v/ 
75 xstrcepy(typename, "ascii"), type = TYPE A; 
76 xstrcpy(formname, "non-print"), form = FORM N3 
77 xstrcpy(modename, ''stream"), mode = MODE S3 
78 xstrcpy(structname, "file"), stru = STRU F; 
79 xstrcepy(bytename, "8"), bytesize = 83 
80 if (fromatty) 
«Bl verbosett+3 
82 else 
83 interactive = 03 /* not interactive, prompt off*/ 
84 /* 
85 * Set up the home directory in case we're globbing. 
86 */ 
87 if (arge > 0) { 
88 if (xset jmp(toplevel )) 
89 xexit(0); 
90 xint term( intr )3 
91 setpeer(argc + 1, argv - 1)3 
92 } 
93 top = xset jmp(toplevel )3 
94 if (top == 0 || top == 1 ) { 
95 xint term( intr )3 
96 top = 1; 
97 } 
98 for C54): 4 
99 cmdscanner(top)3 
100 top = 13 
101 } 
102 } 
103 
104 intr() 
105 { 
106 
107 [* 
108 Should send telnet IP, but ... 
109 for now just close data connection so that ftp will fall back 
110 into command mode. 
cae We still have to wait for other side to complete. 


112 */ 
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133 xint term( intr ); 

114 if( data !=-1 ) 

115 { 

116 shutdown( data, 2 )3 
117 xclose( data )}3 

118 data = ~1l3 

119 xoprintf(xstdout, "data connection broken\n" )3 
120 

121 } 

122 

123 char * 

124 tail(filename) 

125 char *filename}3 

126 { 

127 register char *s}3 

128 . 

129 while (filename) { 

130 s = xstrrchr(filename, '/')3 
131 if (s == XNULL) 

132 break$ 

133 if (s{1]) 

134 return (s + 1)3 
135 *g = '\O'S 

136 

137 return (filename)3 

138 } 

139 


140 extern struct cmd cmdtabl ]3 

141 extern int help(); 

142 /* 

143. * Command parser. 

144 */ 

145 cmdscanner(top) 

146 int top3 

147 { 

148 register struct cmd *c}3 

149 struct cmd *getcmd()3 

150 

151 if (!top) 

152 xputchar('\n'); 

153 for (33) { 

154 if (fromatty) { 

155 xoprintf(xstdout,"ftp> "); 
156 xfflush(xstdout) $ 

157 } 

158 if (xgets(line) == XNULL) { 

159 if( xfeof( xstdin ) ) { 
160 /* 

161 quit on end of input 
162 = 

163 xprintf( "\n" )3 
164 quit()$; 

165 t else { 

166 break} 

167 } 

168 } 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
Zi? 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 


} 


if (line[0] == 0) 
break$ 

if( maregv ) 
xdealglob( margv )3 

margv = xmkarglist( line, &margc )3 

c = getcmd(margvl0])3 

if (c == (struct cmd *)-1) { 
xoprintf(xstdout,"?Ambiguous command\n") 3; 
continue3 


3 

if (c == 0) { 
xoprintf(xstdout,"?Invalid command\n") 3; 
continue$3 

} 

if (c->c conn && !connected) { 
xoprintf(xstdout,"Not connected. \n")$; 
continue} 

} | 

(*c->c_handler)(margc, margv)3 

if (bell && c->c_bell) 
xputchar(CTRL('G'))3 

if (c->c handler != help) 
break; 


xlong jmp(toplevel, 0)3 


struct cmd * 
getcmd({name) 


{ 


register char *name}3 


register char “p, *q} 
register struct cmd “c, *found3 
register int nmatches, Longest} 


/ ate 
a 


convert command to lower case. 


ate 
n 


for( q = name 3 *q 3 ++q ) { 
if( isupper( *q ) ) 


*q = tolower( *q )3 
} 
longest = 03 
nmatches = 03 
found = 03 
for (c = cmdtab$; p = c->c_name3 ct+) { 
for (q = name; *q == *pt+3 qt+) 
if (*q == 0) /* exact match? */ 
return (c)$ 
if (!*q) { /* the name was a prefix * 


if (q - name > longest) { 
longest = q - name; 


nmatches = 13 
found = c$3 
} else if (q - name == longest) 


nmatchestt 3 
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225 } 

226 } 

227 if (nmatches > 1) 

228 return ((struct cmd *)-1)3 

229 return (found)3 

230 } 

231 

232 

233 #define HELPINDENT (sizeof ("directory")) 

234 

235 extern int NCMDS; 

236 /* 

237 * Help command. 

238 * Call each command handler with argc == 0 and argv[0] == name. 
239 */ 

240 help(argc, argv) 

241 int argc}3 

242 char *argvl ]; 

243 { 

244 register struct cmd “*c}3 

245 

246 if (arge == 1) { 

247 register int i, Jj, w3 

248 int columns, width = 0, lines; 

249 

250 xoprintf(xstdout, 

251 "Commands may be abbreviated. Commands are:\n\n")3 
252 for (c = cmdtab3; c < &cmdtab[ NCMDS];3 c++) { 
253 int len = xstrlen(c->c_name)3 

254 

255 if (len > width) 

256 width = len; 

257 } 

258 width = (width + 8) &~ 73 

259 columns = 80 / width; 

260 if (columns == 0) 

261 columns = 13 

262 lines = (NCMDS + columns - 1) / columns; 
263 for (i = 03 i < lines; i++) { 

264 for (j] = 03 j < columns; jtt) { 

265 c = cmdtab + j * lines + i3 
266 xoprintf(xstdout,''%s", c->c name); 
267 if (c + lines >= &cmdtab[NCMDS]) { 
268 xoprintf(xstdout,'\n"); 
269 break; 

270 

271 w = xstrlen(c->c_name)}; 

272 while (w < width) { 

273 w= (w t+ 8) & 73 
274 xputchar('\t')3 

275 } 

276 } 

277 } 

278 return} 

279 } 

280 while (--arge > 0) f{ 
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281 register char *arg}3 

282 arg = *++targv3 

283 c = getcmd(arg)3; 

284 if (c == (struct cmd *)-1) 

285 xoprintf(xstdout,"?Ambiguous help command %s\n", arg)3 
286 else if (c == (struct cmd *)0) 

287 xoprintf(xstdout,"?Invalid help command %s\n", arg); 
288 else 

289 xoprintf(xstdout,"%-*s\t%s\n", HELPINDENT, 

290 . c->c name, c->c_ help); 

291 } 

292 } 

293 

294 /* 

295 * Call routine with argc, argv set from args (terminated by 0). 

296 */ 


297 /* VARARGS2 */ 
298 call(routine, args) 


299 int (*routine)()3 

300 int args} 

301 { 

302 register int “argp3 

303 register int argc} 

304 

305 for (argc = 0, argp = &args3 “argp++ != 03 argct++) 
306 ; 

307 (*routine)(argc, &aregs)3$ 


308 } 
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etitle dummy 

getenvi: 

gethen:: 

getnbas?: 

getnbn:: 

getnens: 

getpens: 

getsbps:; 

getsenss 

10 gpbnam:: 

11 gpbnum:; 

12 rts pe 
13 end 


WOomOAnN DUS WN Ee 
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/* “@(#)compat.h 1.9 4/15/85" */ 


/* added by billn */ 

/* #include <exos/misc.h> */ 

#ifdef index /* system 3 or 5 */ 

#include <fcntl.h> 

#define dup2(f,n) { close(n); fentl(f, F DUPFD, n)3} 
#endif ~ 

10 #ifndef void 

11 #define void int 

12 #endif 


WOON HU LW Ph e 


14 #define VOID (void) 


16 #ifndef SIGCHLD 
17 #define SIGCHLD SIGCLD 


18 #endif 
19 /* end billn */ 
20 


21 #ifndef MAXPATHLEN 
22 +#define MAXPATHLEN 33 
23 #endif 


25 #define receive data rec data 

26 #define wait3 wait2 

27 #define initgroups(a,b) 

28 #define inappropriate request inapreq 


30 #ifdef BSD4dot2 

31 #else 

32 +#ifdef V7 

33. #include <sys/timeb.h> 

34 struct timeval { long tv_sec; long tv_usec3 }3 

35 struct timeb ftimeb3 

36 #define gettimeofday(a,b) ( ftime (&ftimeb), \ 

37 (a)->tv_sec = ftimeb.time, (a)->tv_ usec = ftimeb.millitm) 
38 #else 

39 struct timeval { long tv sec; long tv _usec3 }3 

40 extern long xtime()3 . 

41 #define gettimeofday(a,b) ((a)->tv_ sec = time(0), (a)->tv_usec = 0) 
42 #endif V7 i 

43 #endif BSD4dot2 


45 #ifndef CTRL 
46 +#define CTRL(x) 037&'x' 
47 +#endif 


49 #define SOL SOCKET 0 
50 #define SO REUSEADDR 0 
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/ ‘ 
@(#)£tpd.h 1.2 4/11/85 


Header files for generic server code. 
od / 

#include <xgenlib.h> 

#include <xpwd.h> 

#include <netdb.h> 


WON DU Whe 


10 typedef int jmp_buf; 

ll #include <ftp.h> 

12 #include <in.h> 

13. #include <socket.h> 

14 #include <xspecial.h> 

15 #include "telnet.h" 

16 #define off t long 

17 extern int figit ; 

18 extern long xpasstnet(); 
19 extern long xpassfnet()3 
20 #define VOID figit = (int) 
21 #define renamecmd cmdrename 
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/*@(#)telnet.h 1.8 4/11/85*/ 


* Definitions for the TELNET protocol. 


[* 
ef 
#define IAC 255 
#define DONT 254 
#define DO 253 


#define WONT 252 
#define WILL 251 


#define SB 250 
#define GA 249 
#define EL 248 
#define EC 247 
#define AYT 246 
#define AO 245 
#define IP 244 
#define BREAK 243 
#define DM 242 
#define NOP 241 
#define SE 240 


#define SYNCH 242 
/* telnet options */ 


#define TNPBINARY 
#define TNPECHO 1 
#define TNPRCP 2 
#define TNPSGA 3 
#define TNPNAMS 4 
#define TNPSTATUS 
#define TNPTM 6 
#define TNPRCTE 7 
#define TNPNAOL 
#define TNPNAOP 
#define TNPNAOCRD 
#define TNPHTS 11 
#define TNPHTD 12 
#define TNPNAOFFD 
#define TNPVTS 14 
#define TNPVTD 15 
#define TNPNAOLFD 
#define TNPXASCII 
##define TNPLOGOUT 
#define TNPBM 19 
#define TNPDET 20 
#define TNPSUPDUP 
#define TNPEXOPL 


#ifdef TELCMDS 
char *telcmds[] = { 


al 
ee 


a 
”~ 


a 
sg 


om) 


she 
; 


Z 


W 


sh 
“ 


Zz, ah 4, sf 
5 


a 
% CON ON % 


— 


/[* 
a 


/* interpret as command: */ 

/* you are not to use option */ 

/* please, you use option */ 

/* I won't use option */ 

/* I will use option */ 

/* interpret as subnegotiation */ 

/* you may reverse the line */ 

/* erase the current line */ 

/* erase the current character */ 

/* are you there */ 

/* abort output~--but let prog finish */ 
/* interrupt process--permanently */ 
/* break */ 

/* data mark--for connect. cleaning */ 
/* nop */ 

/* end sub negotiation */ 


/* for telfunc calls */ 


/* 8-bit data path */ 
echo */ 
prepare to reconnect */ 
suppress go ahead */ 
approximate message size */ 
/* give status */ 
timing mark */ 


* remote controlled transmission and echo */ 


/* negotiate about output line width */ 
/* negotiate about output page size */ 
/* negotiate about CR disposition */ 


‘ negotiate about horizontal tabstops */ 
* negotiate about horizontal tab disposition */ 


/* negotiate about formfeed disposition */ 
negotiate about vertical tab stops */ 
negotiate about vertical tab disposition */ 
/* negotiate about output LF disposition */ 
/* extended ascic character set */ 
/* force logout */ 


* byte macro */ 


data entry terminal */ 
/* supdup protocol */ 
/* extended-options-list */ 


USE’ NOP", "DMARK", "BRK", NIP", “AON NAYT', EC", 
EL", "ca", "sp", "WILL", "wont", "Do't, "DONT", "rac", 


$5 
#endif 
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57 #ifdef TELOPTS 
58 char *telopts[] = { 


59 "BINARY", "ECHO", "RCP", "SUPPRESS GO AHEAD", 'NAME", 

60 "STATUS", "TIMING MARK", "RCTE", "NAOL", "NAOP", 

61 "NAOCRD", '"NAOHTS", "NAOHTD", "NAOFFD", "NAOVTS", 

62 "NAOVTD", "NAOLFD", "EXTEND ASCII", "LOGOUT", "BYTE MACRO", 
63 "DATA ENTRY TERMINAL", '"SUPDUP" 

64 33 


65 #endif 
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# line 7 "£tpemd.y" 


#ifndef lint 
static char sccsid[] = "@(#)ftpcmd.y 1.16 8/15/85"; 
#endif 


#define PARSER 
#include "ftpd.h" 


/* 
* MWP: 03/06/85 
* Make machines which have different sized ints and pointers happy. 


ale 


. 
* (at least as far as the parser stack is concerned). 
FETT LEDER TE IEDR TELE ETE LEE TCE IDLE REINER INCI IER ILLITE BNE REBELDE LEE LILLE LICE ELIE. 
he 

a 

* ale 
typedef char * YYSTDEF;3 
. 

#define YYSTYPE YYSTDEF 
YYSTYPE copy()3 

/ se 

we 
BRETT LETTER TERENCE ERE TEI ERE ER ERLE ICL DIS IAEEIEEBIB BNE LEDC IEE IIE EE 


ate 
n 


extern struct sckadr in data dest; 
extern int logged in; 
extern int guest; 
extern int Logging; 
extern int type} 

extern int form; 

extern int debug; 
extern int timeout3 
extern char hostnamel ]; 
extern char *globerr3 
extern char *xghome3 
extern int usedefault}3 


extern char **xglob()3 
static char **elobargs = 03 
static char **rnf glob = 0; 
static char *usgername = 03 
static char *userpass = 03 


static int cmd type = 0 
static int cmd form = 0 


static int cmd bytesz 0; 
char *xstrchr()3 
# define A 257 

# define B 258 

# define C 259 

# define E 260 

# define F 261 

# define I 262 

# define L 263 

# define N 264 

# define P 265 

# define R 266 
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# define S 267 

# define T 268 

# define SP 269 

# define CRLF 270 
## define COMMA 271 
# define STRING 272 
# define NUMBER 273 
# define USER 274 
# define PASS 275 
# define ACCT 276 
# define REIN 277 
# define QUIT 278 
## define PORT 279 
# define PASV 280 
# define TYPE 281 
# define STRU 282 
# define MODE 283 
# define RETR 284 
# define STOR 285 
# define APPE 286 
# define MLFL 287 
# define MAIL 288 
# define MSND 289 
# define MSOM 290 
## define MSAM 291 
# define MRSQ 292 
# define MRCP 293 
## define ALLO 294 
# define REST 295 
# define RNFR 296 
# define RNTO 297 
# define ABOR 298 
# define DELE 299 
# define CWD 300 
## define LIST 301 
# define NLST 302 
# define SITE 303 
# define STAT 304 
# define HELP 305 
# define NOOP 306 
## define XMKD 307 
## define XRMD 308 
# define XPWD 309 
# define XCUP 310 
# define LEXERR 311 


#define yyclearin yychar 


rl 


#define yyerrok yyerrflag = 0 


extern int yychar3 
extern short yyerrflag; 
#ifndef YYMAXDEPTH 
#define YYMAXDEPTH 150 
deendif 

#ifndef YYSTYPE 
#define YYSTYPE int 
#tendif 


YYSTYPE yylval = 0, yyval 


0; 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


# define YYERRCODE 256 


# line 539 "ftpc 


#ifdef zilog 
extern ret buf e 
#else 

extern jmp buf e 
#endif 


#define CMD 
#define ARGS 
#define STR1 
#define STR2 
#define OSTR 


struct tab { 
char 
short 
short 
short 
char 


}3 


struct tab cmdta 
"USER" 
"Pass" 
wACCE™ 
"REIN" 
"QUIT" 
"PORT" 
"PASV" 
"TYPE" 
"STRU" 
"MODE" 
"RETR" 
"STOR" 
"APPE" 
"MLFL" 
"MAIL" 
"MSND" 
"MSOM" 
"MSAM" 
t " 
RCD" 
"ALLO" 
"REST" 
"RNER" 
"RNTO" 
"ABOR" 
"DELE" 
"owp"' P 
"XcWD" 
YULSt 
“NEST 


PPR PR PARP PR PR PR PRP PRP PR PR PR PR PR AS PR PRE RAR A RO EES AN AN CO 


md.y" 


rrceatch$ 


rrceatch$3 


EWN Fe © 


*name $ 
token}; 
state; 
implemented} 
*help; 


bi] = { 
, USER, STRI, 
, PASS, STRI, 
, ACCT, STRI, 
, REIN, ARGS, 
, QUIT, ARGS, 
, PORT, ARGS, 
, PASV, ARGS, 
, TYPE, ARGS, 
, STRU, ARGS, 
, MODE, ARGS, 
, RETR, STRI, 
, STOR, STRI, 
, APPE, STR1, 
, MLFL, OSTR, 
, MAIL, OSTR, 
, MSND, OSTR, 
, MSOM, OSTR, 
, MSAM, OSTR, 
, MRSQ, OSTR, 
, MRCP, STRI1, 
, ALLO, ARGS, 
, REST, STRI, 
, RNFR, STRI1, 
, RNTO, STRI, 
, ABOR, ARGS, 
, DELE, STRI, 
CWD, OSTR, 
, CWD, OSTR, 
, LIST, OSTR, 
, NLST, OSTR, 


RRR rR rE Orr Or COCO C MO COCO ORR RM rR rE Or FP OOF FE 


| ev NO ee) J  _) 


/* beginning of command */ 

/* expect miscellaneous arguments */ 
/* expect SP followed by STRING */ 
/* expect STRING */ 

/* optional STRING */ 


/* 1 if command is implemented */ 


/* In order defined in RFC 765 */ 


"<sp> username" }, 

"<sp> password" }, 

"(specify account)" }, 
"(reinitialize server state)" }, 
"(terminate service)" }, 

"<sp> b0, bl, b2, b3, b4" }, 
"(set server in passive mode)" }, 
"ceo AE et St ae 
"(specify file structure)" }, 
"(specify transfer mode)" }, 
"<sp> file-name" }, 

"<sp> file-name" }, 

"<sp> file-name" }, 

"(mail file)" }, 

"(mail to user)" }, 

"(mail send to terminal)" }, 


"(mail 
"(mail 
"(mail 
"(mail 
“allocate storage (vacuously)" }, 
"(restart command)" }, 

"<sp> file-name" }, 

"<sp> file-name" }, 

"(abort operation)" }, 

"<sp> file-name" }, 


send to terminal or mailbox)" }, 
send to terminal and mailbox)" }, 
recipient scheme question)" }, 
recipient)" }, 


"[ <sp> directory-name]" }, 
"{ <sp> directory-name |" }, 
"[ <sp> path-name ]" }, 

"[ <sp> path-name ]" }, 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
Z21 
222 
2235 
224 


{ “SITE”, SITE, STR1, 0, "(set site parameters)" }, 
{ "STAT", STAT, OSTR, 0, "(set server status)" }, 
{ "HELP", HELP, OSTR, 1, "[ <sp> <string> J" }, 
{ "NOOP", NOOP, ARGS, 1, Me 
{ "XMKD", XMKD, STR1, 1, "<sp> path-name" }, 
{ "XRMD", XRMD, STR1, 1, "<sp> path-name" }, 
{ "XPWD'", XPWD, ARGS, l, "(return current directory)" }, 
{ '"xcuP'", XCUP, ARGS, l, "(change to parent directory)" }, 
{ XNULL, 0, 0, 0, 0 } 
35 
struct tab * 
Lookup(cmd ) 
char “cmd35 
{ 
register struct tab “p3 
for (p = cmdtab3 p->name != XNULL; p++) 
if (xstrcemp(cmd, p->name) == 0) 
return (p)$ 
return (0)3 
} 
/* 
* getline - a hacked up version of fgets to ignore TELNET escape codes. 
x | 
char * 
getline(s, n, iop) 
char *s3 
register XFILE *“iop; 
{ 


register c}3 
register char *cs}3 


cs = S$ 
while (--n > 0 && (c = xgetc(iop)) >= 0) { 
while (c == IAC) { 
c = xgetc(iop); /* skip command */ 
xgetc(iop); /* try next char */ 


i) 


} 

*estt+ = c5 

if (c=='\n') 
break3 


} 
if (c < 0 && cs == s) 
return (XNULL)3 
*estt+ = '\O'S 
if (debug) { 
xoprintf(xstderr, "FTPD: command: %s", s)3 
if (c != '\n') 
xputc('\n', xstderr)3 
xfflush(xstderr) 3 


return (s)3 


5 
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225 

226 static int 

227 toolong() 

228 { 

229 long now3 

230 extern Long xtime()3 

231 

232 reply(421, 

233 "Timeout (%d seconds): closing control connection.", timeout )} 
234 if (logging) { 

235 xoprintf(xstderr, 

236 "FTPD: User %s timed out after %d seconds at 41d", 
237 (username ? username : “unknown"), timeout,xtime())3 
238 xfflush(xstderr)} 

239 

240 xexit(1); 

241 } 

242 

243 yylex() 

244 

245 /* 

246 * Don't use register variables -- Zilog $8000 setret() can't cope. 
247 | 

248 static char cbuf[512]; 

249 static int cpos, state; 

250 char *cp} 

251 struct tab *p3 

252 int n3 

253 char’ .¢$ 

254 

255 for (33) { 

256 switch (state) { 

257 

258 case CMD: 

259 if (getline(cbuf, sizeof(cbuf)-l, xstdin) == XNULL) { 
260 reply(221, "You could at least say goodbye.")3 
261 xexit(0); 

262 } 

263 if (xstrehr(cbuf, '\r')) { 

264 cp = xstrchr(cbuf, '\r'); 

265 cpLO] = '\n'3 cp[1] = 0; 

266 

267 if (xstrchr(cbuf, ' ')) 

268 cpos = xstrchr(cbuf, ' ') - cbuf; 

269 else 

270 cpos = 43 

271 c = cbuf[cpos]; 

272 cbuf[cpos] = '\0'; 

273 upper (cbuf ); 

274 p = Lookup(cbuf )$ 

275 cbuf[cpos] = c3 

276 if (p != 0) { 

277 if (p->implemented == 0) { 

278 nack(p->name) 5 

279 xlong jmp(errcatch) 3 

280 /* NOTREACHED */ 
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281 } 

282 state = p->state3 

283 yylval = (YYSTYPE) p->name;3 
284 return (p->token) 3 

285 } 

286 break$ 

287 

288 case OSTR: 

289 if (cbuf[cpos] == '\n') { 

290 state = CMD; 

291 return (CRLF); 

292 } 

293 /* FALL THRU */ 

294 

295 case STR1: 

296 if (cbuf[cpos] == ' ') { 

297 cpostt; 

298 state = STR2;5 

299 return (SP)3 

300 } 

301 break} 

302 

303 case STR2: 

304 cp = &cbuf[cpos]3 

305 n = xstrlen(cp)3 

306 cpos t= n - 13 

307 [* 

308 * Make sure the string is nonempty and \n terminated. 
309 x / 

310 if (m > 1 && cbuf[cpos] == '\n') { 
311 cbuf[cpos] = '\0'$3 

312 yylval = (YYSTYPE)copy(cp)3 
313 cbuf[cpos] = '\n's 

314 state = ARGS$3 

315 return (STRING)3 

316 } 

317 break} 

318 

319 case ARGS: 

320 if (isdigit(cbuf[cpos])) { 

321 cp = &cbuf[cpos]; 

322 while (isdigit(cbuf[++cpos])) 
323 ; 

324 c = cbuf[cpos]; 

325 cbuf[cpos] = '\0'; 

326 yylval = (YYSTYPE)xatoi(cp)3 
327 cbuf[cpos] = C3 

328 return (NUMBER)3 

329 } 

330 switch (cbuf[cpos++]) { 

331 

332 case '\n': 

333 state = CMD; 

334 return (CRLF)3 

335 


336 case ' ‘s 


Apr 30 23:04 1986 ftpcmd.c Page 7 


337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 


return 

case ',': 
return 

case ‘A's: 

case ‘a': 
return 

case 'B'3 

case 'b': 
return 

case 'C'3 

case 'c'3 
return 

case 'E': 

case ‘e': 
return 

case 'F'3 

case 'f': 
return 

case 'I's: 

case 'i': 
return 

case 'L': 

case 'l1': 
return 

case 'N': 

case 'n': 
return 

case ‘P's: 

case 'p': 
return 

case 'R': 

case 'r'3 
return 

case 'S': 

case 's'?: 
return 

case 'T': 

case 't': 
return 

break; 


(SP)3. 


(COMMA) $ 


(A)3 


(B); 


(C)3 


(E)3 


(F); 


Crs 


(1) 


(N); 


(P)3 


(R)3 


(S)5 


(T); 
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393 default: 

394 fatal("Unknown state in scanner.")3 
395 } 

396 state = CMD3 

397 yyerror( "lexical error" )3 
398 } 

399 } 

400 

401 upper(s) 

402 char *s3 

403 { 

404 while (*s != '\O') { 

405 if (islower(*s)) 

406 *s = toupper(*s)3 
407 Stt+5 

408 } 

409 } 

410 

411 YYSTYPE 

412 copy(s) 


413 char *s3 

414 { 

415 char “p3 

416 /* extern char *xmalloc()3 */ 

417 

418 p = xmalloc((xstrlen(s) + 1))3 

419 if (p == XNULL) 

420 fatal("Ran out of memory.")3 
421 xstrcepy(p, s)3 

422 return ((YYSTYPE)p); 

423 } 

424 

425 help(s) 

426 ' char *s3 

427 { 

428 register struct tab *c}3 

429 register int width, NCMDS; 

430 

431 width = 0, NCMDS = 03 

432 for (c = cmdtab3; c->name != XNULL3 ct+) { 
433 int len = xstrlen(c->name)} 
434 

435 if (c->implemented == 0) 
436 lent+3 

437 if (len > width) 

438 width = len; 

439 NCMDS++35 

440 } 

441 width = (width + 8) &~ 73 

442 if (s == 0) { 

443 register int 1, j, w3 

444 int columns, lines} 

445 

446 Lreply(214, 

447 "The following commands are recognized (* =>'s unimplemented)."); 


448 columns = 76 / width3 
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449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
300 
501 
502 
503 
504 


if (columns == 0) 
columns = 13 
lines = (NCMDS + columns - 1) / columns; 
for (i = 03 i < lines; it+) f{ 
xoprintf(xstdout," "); 
for (j = 03 j < columns; jtt) { 
c = cmdtab + j * lines + 13 


xoprintf(xstdout,"%s%c", c->name, 


c->implemented ? ' ' : '*')s; 
if (c + lines >= &cmdtab[ NCMDS]) 
break$ 


w = xstrlen(c->name)3 
while (w < width) { 
xputchar(' '); 
wt; 
} 
} 
xoprintf(xstdout,"\r\n")3 


xfflush(xstdout) 3 
reply(214, "Direct comments to ftp-bugs@%s.", hostname) $ 
returns 
} 
upper(s)3; 
c = lookup(s)3 
if (c == (struct tab *)0) { 
reply(504, "Unknown command %s.", s)3 
returns 


if (c->implemented) 
reply(214, "Syntax: %s %s'"", c->name, c->help)3 
else 
reply(214, "Z%-*s\t%s3 unimplemented.", width, c->name, c->help)3; 


short yyexcal | ={ 
=i, Ts 


## define YYNPROD 60 
# define YYLAST 208 
short yyact[ ]={ 


26, 54, 103, 149, 147, 145, 105, 143, 105, 124, 
77, 63, 112, 88, 61, 59, 141, 57, 3, 4, 

5, 1485. 255: 65. 1465: 75 8; -9 Tl, 72. 
13, 144, 142, 99, 87, 86, 84, 83, 10, 140, 
28, 82, 81, 16, 17, 15, 14, 45, 44, 19, 
20, 21, 22, 23, 24, 139, 138, 137, 136, 135, 
134, 133, 132, 131, 128, 119, 108, 107, 106, 126, 
100, 98, 97, 127, 96, 104, 95, 92, 91, 52, 
51, 46, 102, 101, 94, 93, 90, 89, 85, 80, 
193 - 785° JS5 765. 365. 35, 34, :39y. 32, 31, 
30, 74, 29, 70, 125, 109, 65, 72, 71, 66, 
375° 61 685. S35. 275 11t.e. 16, 73, 110, 69; 
64, 62, 60, 38, 39, 40, 41, 42, 43, 58, 
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505 56, 2, 47, 48, 49, 50, 1, O, O, 55, 
506 0, 0, oO, oO, 0, 0, OO, O, oO, 9, 
507 0, Oo, oO, oO, 0, oO, 0, 0, OO, oO, 
508 0, O, oO, oO, 0, O, O, O, oO, oO, 
509 0, O, oO, oO, oO, oO, O, 0, O, 130, 
510 0, O, 0, O, 0, 113, 114, O, oO, 0, 
511 06 Ts Oy 118s. 0; 120,121, .0,- 0,122, 
512 123, 115, 0, 116, O, O, O, 129 }3 


513 short yypact[ ]={ 

514 

515 -1000,-256,-1000,-167,-169,-170,-171,-172,-173,-174, 

516 -175,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-222, 
517 -189,-1000,-1000,-1000,-1000,-190,-191,-296,-1000,-255, 
518 -257,-258,-262,-151,-158,-166,-263,-178,-179,-180, 

519 -228,-233,-181,-235,-1000,-259,-1000,-182,-183,-192, 

520 -193,-1000,-1000,-1000,-184,-185,-194,-1000,-196,-1000, 
521 -198,-1000,-199,-238,-200,-186,-187,-1000,-267,-202, 

522 ~-1000,-1000,-1000,-203,-1000,-1000,-1000,-204,-260,-260, 
523 -260,-1000,-260,-1000,-260,-260,-1000,-260,-205,-260, 
524 -260,-1000,-1000,-260,-260,-1000,-1000,-1000,-1000,-264, 
525 -1000,-195,-195,-265 ,-1000,-1000,-1000,-1000,-1000,-207, 
526 -1000,-1000,-1000,-208,-209,-210,-211,-212,-213,-1000, 
527 -214,-215,-231,-254,-239,-1000,-1000,-1000,-1000,-1000, 
528 -1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000,-1000, 
529 -1000,-1000,-266,-240,-268,-247,-269,-250,-270,-1000 }3 
530 short yypgol J={ 

531 

532 0, 136, 131, 130, 129, 122, 121, 120, 119, 117, 

533. 110, 105, 118, 116, 75, 104, 115, 114, 113 }3 

534 short yyril ]={ 


535 

536 iy. Mg: ty. By - oo. oy De. ee 
537 2, 2, 2 2, 2 2, -2, 2, 2; 2, 
B38 © 326) B Bl. foe a. Oe DB a DD, 
539 RR BS ee oe. Mia ibe, Abs aS. Se. 
540 jn Gs To Fe. Fs Fe. - Fs. “Be, 26.. 
541 9. O,.. 9, AL. Wo... 16, 43, 475. ts, 10 %% 
542 short yyr2[]={ 

543 

544 Dy Uy 25. “A he “Me Oy. My ee 
545 i. 5 So S.. -3. “S., “36 5. Se 3, 
546 Sy Ue Je <a ho | ee RE OG he aie 
547 a Ge “ae i Sie ea 
548 a i Se He ae By Oe. We ae ae 
549 iL Ge, a. <n He 2 We So 4 @ te 
550 short yychkl J={ 

551 


552-1000, -1, -2, 274, 275, 276, 279, 281, 282, 283, 
553. 294, 284, 285, 286, 302, 301, 299, 300, -13, 305, 
554 306, 307, 308, 309, 310, 278, 256, -17, 296, 269, 
555 269, 269, 269, 269, 269, 269, 269, -10, -10, -10, 
556 -10, -10, -10, -10, 270, 269, 270, -10, -10, -10, 
557-10, 270, 270, -18, 297, -10, -3, 272, -4, 272, 
558  -5, 272, -6, 273, -7, 257, 260, 262, 263, -8, 
559 261, 266, 265, -9, 267, 258, 259, 273, 269, 269, 
560 269, 270, 269, 270, 269, 269, 270, 269, 272, 269, 


Apr 30 23:04 1986 


561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
972 
573 
5974 
575 
576 
3977 
578 
379 
580 
381 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 


269, 270, 270, 269, 269, 
9, 269, 269, =14, 


970, 2705: 27h 273y 271 


‘ 3 
short yydef[ J={ 


46, 


15, 
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39, 
51; 
0, 
3, 
34, 
0, 
40, 
17, 
0, 


Lee Ses Zs 0, 
0, 59, 59, 59, 59, 
QO, “S95 395° 595: 39; 
0, 0, 0, 0, 
0, 0, 0, Q, 22, 
0, 29, 30, 56, 
0, 33, 0, 0, 
47, 48, 49, 0, 50, 
0, 14, 0, 16, 
0, 27, 28, 0, 
1; 0, 0, 0, 
53, 54, 55, 0, 
0, 0, 0, 0, 
G55 diy. 2s 13, 
58, 57, 0, 0, 
#ifndef Lint 
static char yaccpar sccsid[] = 
#endif not lint 7 
# 
# define YYFLAG -1000 
# define YYERROR goto yyerrlab 
# define YYACCEPT return(0) 


# define 


te 
a“ 


YYABORT return(1) 


parser for yacc output 


#ifdef YYDEBUG 


#endif 


0, 0, 0, 9, 
59, 59, 21, 0, 
0, 0, 59, 0, 
0, O, Oo, oO, 
24, 0, 0, 0, 
0;.. 32,5. 20y. 32, 
41, 43, 44, 0, 
52, 0, O, O, 
i9, 0, 0, 0, 
i. 5, 6) 0; 
8, 9, 10, 0, 
0, O, 0, 23, 
S65: Sie; 38.., 2, 
18, 20, 25, 26, 
0, 0, 0, 35 }3 
"a(#)yaccpar 4.1 (Berkeley) 2/11/83" 
* / 


YYSTYPE yyvlL YYMAXDEPTH] = { 0 }3 /* where the values are stored */ 
int yychar = -13 /* current input token number */ 
rrs = 03 /* number of errors */ 


int yyne 
short yy 


yyparse( 


errflag = 0; /* 


ie 


short yys[ YYMAXDEPTH J; 


short yyj, yym3 


error recovery flag */ 


register YYSTYPE *yypvt3 
register short yystate, *“yyps, yyn}3 


register YYSTYPE *“yypv; 


register short *yyxi$5 


yynerrs = 03 
yyerrflag = 0; 
yyps= &yysl-1]; 
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617 yypv= &yyvi[-1]; 

618 

619 = yystack: /* put a state and value onto the stack */ 
620 


621 #ifdef YYDEBUG 
622 +#endif 


623 if( ++yyps> &yys[YYMAXDEPTH] ) { yyerror( "yacce stack overflow" )$ retu 
624 *“yyps = yystate}3 

625 | ++yypv3 

626 *yypv = yyval; 

627 

628 yynewstate: 

629 

630 yyn = yypactlyystate]; 

631 

632 if( yyn<= YYFLAG ) goto yydefault; /* simple state */ 

633 

634 if( yychar<0 ) if(€ (yychar=yylex())<0 ) yychar=0; 

635 if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault; 
636 

637 if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */ 
638 yychar = -1;5 

639 yyval = yylval; 

640 yystate = yyn}3 

641 if( yyerrflag > 0 ) --yyerrflag; 

642 goto yystack} 

643 

644 

645 yydefault: 

646 /* default state action */ 

647 

648 if( (yyn=yydeflyystate]) == -2 ) { 

649 if( yychar<O ) if(€ (yychar=yylex())<0 ) yychar = 03 
650 /* look through exception table */ 

651 

652 for( yyxi=yyexca; (*yyxi!= (-1)) || (yyxill]!=yystate) 3 yyxi += 2 ) 3 
653 

654 while( *(yyxit+t=2) >= 0 ){ 

655 if( *“yyxi == yychar ) break; 

656 

657 if( (yyn = yyxill]) < 0 ) return(0)3; = /* accept */ 
658 

659 

660 if( yyn == 0 ){ /* error */ 

661 /* error ... attempt to resume parsing */ 

662 

663 switch( yyerrflag ){ 

664 

665 case 0: /* brand new error */ 

666 

667 yyerror( "syntax error" ); 

668 yyerrlab: 

669 ++yynerrs3 

670 

671 case 1: 


672 case 2: /* incompletely recovered error ... try again */ 
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673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 


#ifdef YYDEBUG 
#endif 


yyabort: 


#ifdef YYDEBUG 
#endif 


case 3:3 


j 


/* reduction by 


#ifdef YYDEBUG 
#endif 


case 23 


yyps “= 
yypvt 
bd cas 
yyval 


yym=yyns 


yyerrflag = 3; 
/* find a state where “error” is a legal shift action */ 
while ( yyps >= yys ) { 
yyn = yypact[*yyps] + YYERRCODE; 
if( yyn>= 0 && yyn < YYLAST && yychk[yyactlyyn]] == YYERRCOD 


yystate = yyactlyyn]; /* simulate a shift of "error" */ 
goto yystack; 


yyn = yypact[*yyps]; 


/* the current yyps has no shift onn "error", pop stack */ 
—~yyps; 
—~yyPv; 
} 
/* there is no state on the stack with an error shift ... abort 


return(1)3 


/* no shift yet; clobber input char */ 


if( yychar == 0 ) goto yyabort; /* don't discard EOF, quit */ 
yychar = -l3 
goto yynewstate}3 /* try again in the same state */ 


5 
production yyn */ 


yyr2lyyn]; 
YYPV3 
yyr2lyyn]; 
yypvL1]3 


/* consult goto table to find next state */ 


yyn = yyrllyyn]; 

yyj = yypgolyyn] + *yyps + 1; 

if( yyj>=YYLAST || yychkL yystate = yyactlyyj] ] != -yyn ) yystate = yy 
switch(yym) { 
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729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 


# line 75 "ftpcmd.y" 


{ 
if( globargs ) 
xdealglob( globargs )3 
globargs = (char **)03 
} break; 
case 3: 


# line 83 "ftpcmd.y" 
int success} 
if( logged in ) 


reply(531, "Already logged in."); 
xfree( yypvt[-1] ); 


else if ((success = 
xinit_env(yypvt[-1], (char *)0, (char *)0)) 
<= 0 


{ 
guest = 0; 
reply(331, "Password required for %s.", yypvt[-1]); 
if( username ) 
xfree( username )3 
username = yypvt[-1]; 
} 
else if ( success < 0 ) 
{ 
/* 
Do we want to give out this informantion? 
Xf 
reply(530, "User %s unknown.", yypvt[-1]); 
xfree(yypvt[-1])3 
if( username ) 
xfree( username )3 
username = (char *)03 


} 
{ 


username = yypvt[-1]3 . 
reply(230, "User %s logged in.", yypvtl-1])3 
logged in = 1; 


else 


} break; 
case 4:3 
# line 121 "ftpcemd.y" 
int success} 


if( tusername ) 


reply(530, "Log in with user first.')3 
xfree( yypvtl-1l] )3 
3 


else if( logged in ) 
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} break}; 
case 5: 
# line 158 "ftpcmd.y" 
{ 


reply(531, "Already logged in.")$ 
xfree( yypvt{-1] ); 
} 


else if ((success = , 
xinit_env(username, yypvt[-1], (char *)0)) 


{ 
guest = 05 
reply(331,"Account required for %s.", username) 3 
if( userpass ) 

xfree( userpass )3 
userpass = yypvt[-1]; 
‘ 


else if ( success > 0 ) 
userpass = yypvt[-1]; 
reply(230, "User %s logged in.", username) 3 
logged in = 13 


else /* sucess < 0 (tricotomy) */ 


it 

reply( 530, "Login failed." ); 
xfree( yypvt[-1] ); 

} 


int success} 


if( !username ) 


{ 
reply(530, "Log in with user first.")$; 
xfree( yypvt[-1] ); 


else if( logged in ) 
{ 


reply(531, "Already logged in.")3 
xfree( yypvt[-1] ); 


else if ((success = 
xinit env(username, userpass, yypvt[-1])) 


<= 0 
) 

{ 

guest = 03 


reply( 530, "Login incorrect." )3 
xfree( yypvt[-1] ); 
} 


else if ( success > 0 ) 
reply(230, "User %s logged in.", username) ; 


logged in = 1; 
xfree( yypvt[-1] ); 
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841 } 

842 } break; 

843 case 6:3 

844 # line 188 "ftpcmd.y" 

845 { 

846 usedefault = 03 

847 ack(yypvt[-3]); 

848 } break; 

849 case 7: 

850 # line 193 "ftpcmd.y" 

851 { 

852 switch (cmd type) { 

853 

854 case TYPE A: 

855 if (cmd form == FORM N) { 

856 reply(200, "Type set to A."); 
857 type = cmd type3 

858 form = cmd form; 

859 } else 

860 reply(504, "Form must be N.")3 
861 break} 

862 

863 case TYPE E: 

864 reply(504, "Type E not implemented."); 
865 break} 

866 

867 case TYPE I: 

868 reply(200, "Type set to I."); 

869 type = cmd type; 

870 break} 

871 

872 case TYPE L: 

873 if (cmd bytesz == 8) { 

874 reply(200, 

875 "Type set to L (byte size 8).'); 
876 type = cmd type; 

877 } else 

878 reply(504, "Byte size must be 8."); 
879 } 

880 } breaks 


881 case 8: 
882 # line 224 "ftpcmd.y" 


883 { 

884 switch ((int)yypvt[-1]) { 

885 

886 case STRU F: 

887 reply(200, "STRU F ok."); 
888 break; 

889 

890 default: 

891 reply(502, "“Unimplemented STRU type.")3 
892 } 

893 } break; 


894 case 93 
895 # line 236 "ftpcemd.y" 
896 =f 
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897 switch ((int)yypvt[-1]) { 

898 

899 case MODE S: 

900 reply(200, "MODE S ok.")3 

901 break3 

902 

903 default: 

904 reply(502, "Unimplemented MODE type."); 
905 } 

906 } break; 


907 case 10: 

908 # line 248 "ftpcemd.y" 

909 { 

910 ack(yypvt[-3]); 
911 } break; 

912 case 11: 

913. # line 252 "ftpcmd.y" 


914 

915 if (yypvt[-3] && yypvt[-1] != XNULL) 
916 retrieve(0, yypvt[-1]); 

917 } break; 


918 case 12: 
919 # Line 257 "ftpcemd.y" 


920 { 

921 if (yypvt(-3] && yypvt[-1] != XNULL) 
922 store(yypvtl-1], "w''); 

923 } break3 


924 case 13: 
925 # line 262 "ftpcmd.y" 


926 { 

927 if (yypvt(-3] && yypvt{-1] != XNULL) 
928 store(yypvt[-1], "a'"); 

929 } break; 


930 case 14: 
931 # line 267 "ftpcemd.y" 


932 { 

933 if (yypvt[-1]) 

934 retrieve( LS, ""); 
935 } break; 


936 case 15: 
937 # line 272 "ftpcemd.y" 


938 { 

939 if (yypvt(-3] && yypvt[-1] != XNULL) 
940 retrieve( LS ARG, yypvtl-1]); 
941 if (yypvt[-1] != XNULL) 

942 xfree(yypvt[-1]); 

943 } break; 


944 case 16: 
945 # line 279 "ftpcemd.y" 


946 { 

947 if (yypvt{-1]) 

948 retrieve( LSLONG, '"'); 
949 } break; 


950 case 17: 
951 # line 284 "ftpcmd.y" 
952 { 
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953 if (yypvtl-3] && yypvt[-1] != XNULL) 

954 retrieve( LSLONG ARG, yypvt[-1]); 
955 if (yypvt{-1] != XNULL) © 

956 xfree(yypvt[-1]); 

957 } break; 


958 case 18: 
959 # Line 291 "ftpcmd.y" 


960 { 

961 if (yypvt(-3] && yypvt[-1] != XNULL) 
962 delete(yypvtl-1]); 

963 } break; 


964 case 19:3 
965 # line 296 "ftpcmd.y" 
{ 


966 

967 if (yypvt[-1]) 

968 xchdir( (char *)0, HOME DIR); 
969 } break; 


970 case 20: 
971 # line 301 "ftpcmd.y" 


972 { 

973 if (yypvt({-3] && yypvt[-1] != XNULL) 
974 cwd(yypvt(-1], FILE NAME ); 
975 } break; 


976 case 223 
977 # line 307 "ftpcmd.y" 
978 { 
979 hel p(0)3 
980 } breaks 
981 case 23: 
982 # line 311 "ftpcemd.y" 
983 { 
984 help(yypvt[-1])3 
985 } breaks 
986 case 24:3 
987 # line 315 “ftpcmd.y" 
988 { 
989 ack(yypvt[-1])3 
990 } break; 
991 case 25: 
992 # line 319 "ftpcmd.y" 
{ 


993 

994 if (yypvt(-3] && yypvt[-1] != XNULL) 
995 makedir(yypvt[-1]); 

996 } break; 


997 case 26: 
998 # line 324 '"ftpcmd.y" 
{ 


999 

1000 if (yypvt(-3] && yypvt[-1] != XNULL) 
1001 removedir(yypvtL-1])3; 

1002 } break; 


1003 case 273 
1004 # line 329 "ftpcmd.y" 
{ 


1005 
1006 if (yypvt[-1]) 
1007 pwd(); 


1008 } break; 
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case 28:3 
# line 334 "ftpemd.y" 
{ 
} break; 
case 29: 
# line 339 "ftpemd.y" 
{ 
} break; 
case 30: 
# line 344 "ftpcmd.y" 
{ 
} break; 
case 353 
# line 363 "ftpcmd.y" 
{ 
} break; 
case 36: 


# line 376 "ftpcmd.y" 
{ 


yyval 
} break; 
case 37:3 
# line 380 '"ftpcmd.y" 
{ 


yyval 
} break3 
case 38: 
# line 384 "ftpcmd.y" 
{ 


yyval 
} break} 
case 39: 
# Line 390 "ftpemd.y" 
{ 
cmd type 
cmd form 
} break; 
case 40: 
# line 395 "ftpcmd.y" 
{ 
cmd type 
cmd form 
} break; 


iG 


if (yypvt(-1] && !inappropriate request("..")) 
cwd("'..", UP DIRECTORY ); 


reply(221, "Goodbye.")3 
xexit(0)3 


yyerrok$ 


*D5 


register char “a, 


a = (char *)&data dest.sin addr; 

alO] = (int)yypvt[-10]; afl] = (int)yypvel[-8]; 
al2] = (int)yypvt{-6]; al3] = (int)yypvt[-4]; 
p = (char *)&data dest.sin port; 


plO] = (int)yypvt[-2]; p{1] = (int)yypvtl-0]; 
data dest.sin family = AF INET}; 


(YYSTYPE)FORM N3 


(YYSTYPE)FORM T3 


(YYSTYPE)FORM C3 


TYPE A} 
FORM N; 


TYPE A$ 
(int )yypvtl-0]3 
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case 41: 
# line 400 "ftpcmd.y" 
{ 
cmd type = 
cmd form = 
} break; 
case 42:3 
# line 405 "ftpcmd.y" 
{ 
cmd type = 
cmd form = 
} break; 
case 43: 
# Line 410 "f£tpcmd.y" 


cmd type = 
} breaks 
case 443 
# line 414 "ftpcmd.y" 
{ 
cmd type = 
cmd bytesz 
} break; 
case 45: 
# line 419 "ftpcmd.y" 
{ 
cmd type = 
cmd bytesz 
} break; 


case 46:3 
# line 425 "ftpcmd.y" 


cmd type = 
cmd bytesz 
} break3 
case 473 
# line 432 "ftpcmd.y" 
{ 


TYPE E; 
FORM N3 


TYPE _E3 
(int )yypvt[-0]; 


TYPE I; 


TYPE L; 
= 83 


TYPE L; 
= (int)yypvt[-0]; 


TYPE Ls 
= (int)yypvt[-0]; 


yyval = (YYSTYPE)STRU F} 


} break; 
case 48:3 
# line 436 "ftpcmd.y" 
{ 


yyval = (YYSTYPE)STRU R; 


} break; 
case 493 
# line 440 "f£tpcmd.y" 
{ 


yyval 
} break; 
case 50: 
# Line 446 "f£tpcmd.y" 
{ 


yyval 
} break; 
case 51: 


(YYSTYPE)STRU P} 


(YYSTYPE)MODE S$; 
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1121 # line 450 "ftpcemd.y" 
1122 { 

1123 yyval 
1124 } break; 

1125 case 52: 

1126 # line 454 "ftpcmd.y" 
1127 { 

1128 yyval 
1129 } break; 

1130 case 53: 

1131 # line 460 "ftpcmd.y" 


(YYSTYPE)MODE B; 


(YYSTYPE)MODE C; 


1132 
1133 char *“argv[2]3 
1134 
1135 argvL0O] = (char *)yypvt[-0]3 
1136 argvL1] = (char *)0; 
1137 globargs = xglob(argv)3 
1138 if (globerr != XNULL) { 
1139 reply(550, globerr)$; 
1140 yyval = (YYSTYPE)XNULL;3 
1141 } else if( globargs == XNULL || *globargs == XNULL ) { 
1142 reply(550, "No file name matches."); 
1143 yyval = (YYSTYPE)XNULL; 
1144 $} else { 
1145 yyval = (YYSTYPE)*globargs3 
1146 
1147 if (inappropriate request (yyval )) 
1148 yyval = (YYSTYPE)XNULL; 
1149 xfree(yypvtl-0]); 
1150 } break; 


1151 case 54: 
1152 # line 482 "ftpcmd.y" 
{ 


1153 

1154 if (yypvt{-0] && inappropriate request(yypvtl-0])) { 
1155 yyval = (YYSTYPE)XNULL; 

1156 xfree(yypvtl-0]); 

1157 } else 

1158 yyval = yypvt[-0]; 

1159 } break; 


1160 case 56: 
1161 # Line 495 "ftpcemd.y" 


1162 f 
1163 if (yypvt(-1] && yypvt[-0]) 
1164 renamecmd(yypvtl-1], yypvt[-0]); 
1165 else 
1166 reply(503, "Bad sequence of commands."); 
1167 /* 
1168 * Since two path names are involved, we should delalocate 
1169 * space for the first one, as globargs contains the result 
1170 * of the second globbing, and will be dealocated when 
1171 * the reduction to cmd takes place. 
1172 */ 
ers if (rnf_ glob) 
1174 xdealglob(rnf glob); 
1175 } break3 


1176 case 57: 
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1177. # line 512 "ftpcemd.y" 


1178 

1179 char “from = 0, *renamefrom()$ 

1180 

1181 if (yypvt[-3] && yypvt[-1]) 

1182 from = renamefrom(yypvtl-1]); 
1183 rnf glob = globargs; 

1184 yyval = (YYSTYPE)from; 

1185 } break; 


1186 case 58: 

1187 # line 523 "ftpcmd.y" 

1188 =f 

1189 yyval = yypvt[-1]; 
1190 } break; 

1191 case 59: 

1192 # line 529 "ftpcmd.y" 


1193 

1194 if (logged in) 

1195 yyval = (YYSTYPE)1; 

1196 else { 

1197 reply(530, "Please login with USER and PASS.")3 
1198 yyval = (YYSTYPE)0; 

1199 

1200 } break; 

1201 

1202 goto yystack; /* stack new state and value */ 
1203 


1204 } 
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1 #ifndef lint 

2 static char sccsid[] =" @(#)ftpd.c 1.16 7/29/85"; 
3 #endif 

i 

5 /* 

6 ™“ FTP server. 

7 */ 

8 #include '"ftpd.h" 

9 


10 extern long xpasstnet(), xpassfnet(); 
11 extern char versionl]; 
12 extern XFILE *xodopen(); 


13. /* 
14 extern int fclose(); 
15 */ 


16 extern char *xrerror()}3 

17 extern int xclose()3 

18 extern char **xmkarglist()3 
19 extern char **xglob()3; 

20 extern char *globerr; 


22 struct sckadr_ in ctrl addr = { AF INET }; 
23. struct sckadr in data source = { AF INET }3 
24 struct sckadr in data dest = { AF INET };3 
25 struct sckadr in his addr = { AF INET }; 


26 

27 struct hostent “hp = 03 
28 

29° int data = 03 


30 #ifdef zilog 
31 ret buf errcatch$ 


32 #else 

33 jmp buf errcatch = { 0 }3 

34 #endif 

35 int logged in = 0; 

36 «int debug = 03 

37 int timeout = 03 

38 int logging = 03 

39 int guest = Q; 

40 int type = 0; 

41 int form = 03 

42 int stru = 03 /* avoid C keyword */ 
43 int mode = Q3 

44 int bytesize = 03 

45 int usedefault = 1; /* for data transfers */ 
46 char hostname[32] = {0}; 

47 char *remotehost = (char *)03 

48 struct servent *sp = (struct servent *)03 

49 

50 /* 

51 ™* Timeout intervals for retrying connections 

52 * to hosts that don't accept PORT cmds. This 

53 * is a kludge, but given the problems with TCP... 

54 */ 

55 #define SWAITMAX 90 /* wait at most 90 seconds */ 


56 +#define SWAITINT 5 /* interval between retries */ 
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57 

58 int swaitmax = SWAITMAX3 

59 int swaitint = SWAITINT; 

60 

61 int Lostconn()3 

62 XFILE *dataconn()3 

63 char *ntoa()$ 

64 

65 ftpdoit( s, from ) 

66 /* 

67 start of generic ftp demon code 

68 */ 

69 

70 int s$ 

71 struct sckadr in *from3 

72 { 

73 if (logging) 

74 dolog(&his addr); 

75 xdup2(s, 0); 

76 if( s !=0 ) 

77 xclose(s)3 

78 xdup2(0, 1); 

79 xodopen( 0, "r" ); 

80 xodopen( 1, "w" )3 

81 /* do telnet option negotiation here */ 
82 [* 

83 * Set up default state 

84 */ 

85 data = -l3 

86 type = TYPE A; 

87 form = FORM N; 

88 stru = STRU F; 

89 mode = MODE 8S; 

90 bytesize = 83 

91 sp = gsbname("ftp", "tcp"); 

92 if (sp == 0) { 

93 xoprintf(xstderr, "ftpd: ftp/tcp: unknown service\n"); 
94 xexit(1)3 

95 } 

96 xghname(hostname, sizeof (hostname) )3; 
97 ctrl _addr.sin port = xhtons(sp->s_ port); 
98 data source.sin port = xhtons(sp->s_ port - 1)3 
99 reply(220, "%s FTP server (%s) ready.", hostname, version)3 
100 for (33) { 

101 xset jmp(errcatch) 3 

102 if( Logging ) 

103 

104 xoprintf( xstderr, "calling yyparse\n" ); 
105 xfflush( xstderr )3 

106 } 

107 yyparse()3 

108 } 

109 } 

110 


111 lostconn() 
112 §{ 
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168 


fatal("Connection closed.")3 


} 


retrieve(cmd, name) 


int cmd$3 


char *name3 


XFILE *fin, *dout3 

int inod3 

int (*closefunc)()}3 

int omode3 

struct ftp attr attributes; 


char 
char 
char 
char 


*arevl[2]3 
argv23 
**argv3 3 
*pt ' 


if (cmd == 0) { 


t else f{ 


} 


/* 
simple file 
*/ 
omode = XFREAD3 
attributes.rep type = type} 
attributes.format = form; 
attributes.structure = stru3 
attributes.trans mode = mode} 
attributes.byte sz = bytesize}3 
inod = xftpopen( name, omode, FILE NAME, &attributes )3 
if (inod < 0 ) { 
reply(550, "%s: %s.", name, xrerror( inod )); 
returns 
} 
fin = xodopen( inod, "r''); 
if ( fin == XNULL ) { 
reply(550, "xodopen failed.")3 


returnys 
closefunc = xclose3 


we are to generate a psuedo file, 
at the moment some form of ls => call xls after opening 
data connection. 


ate 
a“ 


dout = dataconn(name, (off t)0, "w''); 
if (dout == XNULL) 


goto done; 


if( cmd ) 


{ 

/ a 

a psuedo file object ( ls, ls -lg) 
* / 

if( xstrlen( name ) ) 


{ 
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217 
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219 
220 
221 
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224 


done: 


5 


else if 


else 


xclose( 


ftpd. 


c Page 4 
/* 
name may require globbing (for remote globbing). 
* / 
argvl[0] = name3 
argvl[1] = (char *)03 
argv2 = xglob( argvl )3 
if( argv2 == XNULL || globerr ) 
xclose( xfileno(dout) ); 
data = -1;5 
reply( 500, "Remote glob failed. %s", globerr 
if( argv2 != XNULL ) 
xdealglob( argv2 ); 
return; 
} 
argv3 = argv23 
for( pt = *“argv3++ 3 pt 3 pt = *argv3++ ) 
xls( xfileno(dout), pt, cmd )3 
xdealglob( argv2 ); 
else 
xls( xfileno(dout), name, cmd )3 
} 
xclose( xfileno(dout) )3; 
data = -l3 
reply(226, "Transfer complete.")3 
return s 
} 
(send data(name, fin, dout) ) 
xclose( xfileno(dout)), data = -13 
} 
{ 
reply(226, "Transfer complete."); 
xclose( xfileno(dout)), data = -13 
} 


xfileno(fin) )3 


store(name, append) 
char “name, “append; 


{ 


XFILE *fout, *din3; 

int outod3 

int omode;3 

int (*closefunc)(), dochown = 13 
struct ftp attr attributes; 


omode = 


XFWRITE | XFCREAT | (( *append == 'a' )? XFAPPEND : 


attributes.rep type = type; 
attributes.format = form; 


XFTRUNC )3 


Me 
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225 attributes.structure = stru}3 

226 attributes.trans mode = mode} 

227 attributes.byte sz = bytesize} 

228 outod = xftpopen( name, omode, FILE NAME, &attributes 3 
229 if( outod < 0 ) 

230 { 

231 reply(550, "%s: Zs.", name, xrerror( outod ) )3 
232 return 3 

233 } 

234 fout = xodopen( outod, "w" ), closefunc = xclose}3 
235 if (fout == XNULL) { 

236 reply(550, "xodopen failed.")3 

237 return; 

238 } 

239 din = dataconn(name, (off t)-1, "r''); 

240 if (din == XNULL) 7 

241 goto done; 

242 if (receive data(name, din, fout) ) 

243 

244 } 

245 else 

246 { 

247 reply(226, "Transfer complete.")3 

248 

249 xclose( xfileno(din)), data = -13 

250 done: 

251 VOID xchown(name, FILE NAME )3 

252 xclose( xfileno(fout) )3 

253 } 

254 

255 

256 getdatasock(mode) 

257 char *mode3 

258 { 

259 int s$ 

260 int retry; 

261 

262 if (data >= 0) 

263 return (data)3 

264 data source.sin family = AF INET; 

265 for (retry = 03 retry < swaitmax; xsleep (swaitint), retry += swaitint) 
266 

267 s = xsocket(SOCK STREAM, 0, &data source, 
268 SO KEEPALIVE|SO REUSEADDR) ; 

269 /* GAP 7/25/85: REUSEADDR fixes simultaneous xfer bug */ 
270 if (s >= 0 || ( s != XEADDRINUSE && s != XENOBUFS)) 
271 break; 

272 } 

273 if (s < 0) 

274 xperror( s, "getdatasock"” ); 

275 return ( §g )3 

276 } 

277 

278 

279 XFILE * 


280 dataconn(name, size, mode) 
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281 char *name3 

282 off t size; /* no longer used */ 

283 char *mode3 

284 { 

285 char sizebuf[32]; 

286 XFILE *file; 

287 int retry = 03 

288 int s3 

289 int rval3 

290 . 

291 if (data >= 0) { 

292 reply(125, "Using existing data connection for %s.", name)$ 
293 usedefault = 13 

294 return (xodopen(data, mode) )3 

295 } 

296 if (usedefault) 

297 xbcopy( &his addr, &data dest, sizeof(struct sockaddr) ) 35 
298 usedefault = 13 

299 s = getdatasock(mode)} 

300 if (s <0) { 

301 reply(425, "Can't create data socket (%s,%d): %s.", 
302 ntoa(data_source.sin addr.s addr), 

303 xntohs(data_ source.sin port), 

304 xrerror( s ))}3 

305 return (XNULL)$3 

306 

307 reply(150, "Opening data connection for %s (%s,4%d).", 
308 name, ntoa(data dest.sin addr.s addr), 

309 xntohs(data dest.sin port))} 

310 data = s3} 

311 while ((rval = xconnect(data, &data dest)) < 0) { 

312 if (rval == XEADDRINUSE && retry < swaitmax) { 
313 xsleep(swaitint)3 

314 retry += swaitint;3 

315 continue} 

316 

317 reply(425, "Can't build data connection: %s.", 
318 xrerror( rval ) )3 

319 VOID xclose(data) $3 

320 data = -13 

321 return (XNULL)3; 

322 } 

323 file = xodopen( data, mode )3 

324 return (file)3 

325 } 

326 

327. /* 

328 * Tranfer the contents of "instr" to 

329 *« "outstr" peer using the appropriate 

330 * encapulation of the date subject 

331  * to Mode, Structure, and Type. 

332 % 

333 * NB: Form isn't handled. 

334 */ 


335 send data(name, instr, outstr) 
336 char “name; 
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337 XFILE “instr, *“outstr}3 

338 f{ 

339 long rval; 

340 

341 rval = xpasstnet( instr, outstr )} 

342 if( rval == XEOPNOTSUPP ) 

343 

344 reply(504,"Unimplemented TYPE %d in send data", type); 
345 return( 1 )3 

346 

347 else if ( rval <0 ) 

348 

349 reply(550, "%s: %s.", name, xrerror( rval ) )3 
350 return( 1 )3 . 
351 

352 return (0)3 

353 } 

354 

355 /* 

356 ™* Transfer data from peer to 

357 * "outstr" using the appropriate 

358  * encapulation of the data subject 

359 ™* to Mode, Structure, and Type. 

360 * 

361 * N.B.: Form isn't handled. 

362 2 */ 

363 receive data(name, instr, outstr) 

364 char *name3 

365 XFILE “instr, *outstr}3 

366 f{ 

367 long rval3 

368 

369 rval = xpassfnet( instr, outstr )3 

370 if( rval == XEOPNOTSUPP ) 

371 { 

372 reply(504, "TYPE E not implemented.")3 
373 return (1)3 

374 } 

375 else if ( rval <0 ) 

376 { 

377 reply(550, "%s: %s."", name, xrerror( rval ) )3 
378 return (1)3 

379 

380 return( 0 )3 

381 } 

382 

383 fatal(s) 

384 char *s3 

385 { 

386 reply(451, “Error in server: %s\n", s)3 
387 reply(221, "Closing connection due to server error.")$ 
388 xexit(1); 

389 } 

390 


391 #ifdef zilog 
392 reply(n, s, al, a2, a3, a4, a5, a6) 
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393 int n}3 

394 char *s3 

395 int al, a2, a3, a4, a5, a63 

396 { 

397 int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aab6=a63 
398 #else 

399 reply(n, s, args) 

400 int n3 

401 char *s;3 

402 { 

403 #endif 

404 xoprint£(xstdout,"%d ", n)3 

405 _mydoprnt(s, &args, xstdout)3 

406 xoprintf(xstdout,"\r\n")3 

407 xfflush(xstdout)3 

408 if (debug) { 

409 xoprintf£(xstderr, '"<--- Z%d ", n)3 
410 _mydoprnt(s, é&args, xstderr)} 
411 xoprintf(xstderr, "\n")3 

412 xfflush(xstderr)3 

413 } 

414 } 

415 


416 #ifdef zilog 
417 lreply(n, s, al, a2, a3, a4, a5, a6) 


418 int n3 

419 char *“gs3 

420 int al, a2, a3, a4, a5, a63 

421 { 

422 int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aab=ab;3 
423 #else 

424 lreply(n, s, args) 

425 int n}3 

426 char *“s3 

427 { 

428 #endif 

429 xoprint£(xstdout,"%d-", n)3 

430 _mydoprnt(s, &args, xstdout)3 

431 xoprintf£(xstdout,"\r\n")3; 

432 xfflush(xstdout)3 

433 if (debug) { 

434 xoprintf(xstderr, '<--- %d-", n)3 
435 _mydoprnt(s, &args, xstderr)$ 

436 xoprintf(xstderr, "\n'"); 

437 } 

438 } 

439 

440 replystr(s) 

441 char “gs3 

442 { 

443 xoprintf(xstdout,"%s\r\n", s); 

444 xfflush(xstdout)3 

445 if (debug) 

446 xoprint£(xstderr, ''<--- %s\n", s)3 
447  } 


448 


Apr 30 23:04 1986 ftpd.c Page 9 


449 ack(s) 

450 char “s3 

451 { 

452 reply(200, "%s command okay.", s)3 

453 } 

454 

455 nack(s) 

456 char *s3 

457 { 

458 reply(502, "%s command not implemented.", s)3 
459 } 

460 

461 yyerror( message ) 

462 

463 char *message;3 

464 { 

465 reply(500, "Command not understood: %s.", message )3 
466 xlongjmp( errcatch, 1 )}3 

467 } 

468 

469 delete(name) 

470 char *name3 

471 { 

472 int rval3 

473 

474 if ((rval = xunlink(name, FILE NAME )) < 0) { 
475 reply(550, "%s: %s.", name, xrerror( rval ))3 
476 return} 

477 

478 ack("DELE") 3 

479 } 

480 

481 cwd(path, special) 

482 char *path; 

483 int special; 

484 { 

485 int rval$ 

486 

487 if (( rval = xchdir(path, special ) ) < 0) f{ 
488 reply(550, "Zs: %s.", path, xrerror( rval ) )3 
489 return3 

490 

491 ack("CWD"); 

492 } 

493 

494 makedir(name) 

495 char “name3 

496 { 

497 int rval3 

498 

499 if ((rval = xmkdir(name, FILE NAME)) < 0) { 
500 reply(550, "%s: %s.", name, xrerror( rval ) )3 
501 return$ 

502 } 

503 VOID xchown(name, FILE NAME ); 

504 ack("MKDIR") 3 
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505} 

506 

507 removedir(name) 

508 char *name3 

509 { 

510 int rval3 

511 , 

512 if (( rval = xrmdir(name, FILE NAME)) < 0) { 

513 reply(550, "%s: %s."", name, xrerror( rval ) )3 
514 return$ 

515 

516 ack("'RMDIR"); 

517 } 

518 

519 pwd() 

520 { 

521 char path[MAXPATHLEN + 1]; 

522 int success} 

523 

524 success = xpwd( path, MAXPATHLEN + 1, PWD )3 

525 if ( success < 0) { 

526 reply(451, “working directory not available.")$; 
527 return; 

528 

529 reply(251, "\"%s\" is current directory.", path)}3 

530 } 

531 

532 char * 

533 renamefrom(name) 

534 char *“name3 

535 { 

536 int rval3 

537 

538 . if ( (rval = xaccess( name, FILE NAME, 0 ) ) <0 ) { 
539 reply(550, "%s: %s.", name, xrerror( rval ) )}3 
540 return ((char *)0)3 

541 

542 reply(350, "File exists, ready for destination name"); 
543 return (name)3 

544 } 

545 

546 renamecmd(from, to) 

547 char “from, *to$3 

548 { 

549 int rval; 

550 

551 if ((rval = xrename(from, FILE NAME, to, FILE NAME) ) < 0) { 
552 reply(550, "rename: %s.", xrerror( rval ) ); 
553 return$ 

554 } 

555 ack("RNTO") 3 

556} 

557 

558 /* 

559 ™* Test pathname for guest-user safety. 

560 ve / 
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561 inappropriate request (name) 


562 char “name3 

563 { 

564 int depth = 0, length, size; 

565 register char *“p, *s$3 

566 

567 length = ( name )? xstrlen( name ) : O 3 

568 [* 

569 This functionality probably belongs in xftpopen, 
570 but for now. 

571 ¥/ 

572 return( 0 )3 

573 } 

574 

575 / 

576 * Convert network-format internet address 

577 ™* to base 256 d.d.d.d representation. 

578 */ 

579 char * 

580 ntoa(in) 

581 struct in_addr in; 

582 { 

583 static char b[18]; 

584 register char *p3 

585 

586 p = (char *)&in;3 

587 #define UC(b) (((int)b)&0xff) 

588 xsprintf(b, "%d.%4d.%4d.%4d", UC(plO]), Uc(pl1]), UcCpl2]), uc(p[3])); 
589 return (b)3 

590 } 

591 

592 dolog(sin) 

593 struct sckadr in *sin; 

594 { 

595 char saddrl16], *ntoa(); 

596 struct hostent *hp = ghbaddr(&sin->sin_addr, 

597 sizeof (struct in addr), AF INET); 

598 char *“remotehost}3 

599 long t3 

600 long xtime()$ 

601 

602 if (hp) 

603 remotehost = hp->h name} 

604 else 

605 remotehost = ntoa (sin->sin addr.s addr); 
606 t = xtime();3 

607 xoprintf(xstderr,"FTPD: connection from %s at 41d", 
608 remotehost, t )$ 

609 xfflush(xstderr)$ 

610 } 

611 

612 

613 / 

614 mp - Even if doprnt is more wonderful than mydoprnt for systems which 
615 have doprnt, using doprnt is an incredible maintainance headache. 


616 In any case, we should support the same functionality on all 
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617 systems. 
618 Hence, may doprnt rest in peace. 
619 */ 


620 mydoprnt(format, argp, FILEp) 

621 char *format 

622 int *argp3 

623 XFILE *FILEp; 

624 { 

625 xoprintf(FILEp, format, *“argp, *(argpt+l), *(argpt+t2), *(argp+3), 
626 . *(argpt4), *(argpt5))3; 
627 } 

628 

629 

630 

631 struct servent * gsbname (service, proto) 
632 char “service, *proto$3 


633 { 

634 static struct servent servstat}3 

635 

636 servstat.s name = service} 

637 servstat.s aliases = 03 

638 if (xstrcemp (service, "ftp") == 0) 
639 servstat.s port = (IPRT FTP); 
640 else 

641 if (xstremp (service, "telnet") == 0) 
642 servstat.s port = (IPPORT TELNET); 
643 else 

644 return (0)3 

645 servstat.s proto = proto$ 

646 return (&servstat)}3 

647} 

648 


649 extern char *xraddr()3 

650 extern struct hostent *“ghbname ()3 
651 

652 struct hostent * 

653 ghbaddr(addr) 

654 struct in addr “addr; 


655 { 

656 char *“name}3 

657 

658 if ((mame = xraddr (addr -> s addr)) == 0) 
659 return (0); 

660 return (ghbname(name) ); 

661 } 

662 

663 extern long xrhost ()3 

664 


665 struct hostent * 
666 ghbname(host) 
667 char “host; 


668 

669 static struct hostent def; 

670 Static struct in addr defaddr;3 
671 static char namebuf[128]; 


672 
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673 defaddr.s addr = xrhost(&host)} 

674 if (defaddr.s addr == -1) 

675 return (0)3 

676 xstrcpy(namebuf, host); 

677 def.h name = namebuf$ 

678 def.h addr = (char *)&defaddr; 

679 def.h length = sizeof (struct in_addr)3 
680 def.h addrtype = AF INET; 

681 def.h aliases = 0; 

682 return (&def)3 


683 } 
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* FTP server. 


*/ 

#include <xgenlib.h> 
#include <xspecial.h> 
#include <netdb.h> 

10 #include <in.h> 
11 #include <xpwd.h> 
12 #include <fcs.h> 


WO MOwn Duo & whe 
= 
he 


14 #include <ftp.h> 
15 #include <socket.h> 


17 extern char versionl[ ]3 
18 extern int xsmain()3 
19 extern int Lostconn()3 


21 extern struct sckadr in ctrl addr; 
22 struct xiobuf xiobl[ XNFILE] = {0}; 
23 struct passwd xpassword = {0}; 

24 struct passwd *pw = & xpassword} 

25 struct rcb _rcbl XNFILE] = {0}; /* RSX - CONTROL BLOCK */ 
26 typedef int jmp buf; 

27 extern int errcatch3 

28 jmp buf *envptr = {0}; 

29 int xmodname()3 

30 int hash = 03 

31 int errno = 03 


32 aint figit = 0; 
33 int brk = 03 /* USED BY C_RTS ALLOC & FREE */ 
34 char Luntb1[32] = {0}; /* used to maintain LUN */ 


35 extern char *“inprnl ]; 
36 char *xghome = (char * )03 
37 extern struct hostent *“hp 35 


38 

39 extern int logged in ; 

40 extern int debug 3 

41 extern int timeout 3 

42 extern int logging 3 

43 extern int guest 3 

44 extern struct servent *“sp 3 

45 

46 

47 main(argc, argv) 

48 int argc} 

49 char “argvl ]; 

50 { 

51 int ctrl, s, options = 03 
a2 char *cp}3 

53 int rval$ 

54 int rval23 

55 int buf[16]; /* 16 word bufferd used for task 


56 parameters */ 
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int maxlun = 03 


emt (GTSK, buf ) 5 
_brk = buf[13]; 
maxlun = buf[8]; 
ppasc(pw->cur_uic, buf[7]); 
ppasc(pw->Login uic, buf[15]); 
emt (GLUN,1, buf ); /* get lun information 
xstrncpy(pw->log dev,buf,2); /* get phy. device name 
pw->log devl2] = (*((char *)buf + 2 )) + 060; /* get unit no. 
pw->log dev[3] = '\0'; /* make it string */ 
xstrepy(pw->cur dev,pw->log dev); 
while( maxlun ) { 

if( emt(GLUN, maxlun, buf ) > 0 ) 

assign(maxLun) $3 
--maxlun3 


for( rval = 03 rval < XNFILE 3; ++ rval ) 
_rcb[rval].flags = RFREE; 

sp = gsbname("ftp","tcp")3 

errcatch = (int ) & envptr; 

if (sp == 0) { 
xoprintf(xstderr, "ftpd: ftp/tcp: unknown service\n")3; 
xexit(1)3 

} 

ctrl addr.sin port = xhtons(sp->s port)}3 

ctrl addr.sin family = AF INET; _ 

options = ( SO ACCEPTCONN | SO KEEPALIVE ); 

debug = 03 7 

argc--, argvtt; 

while (argc > 0 && *argvl0] == '-') { 
for (cp = &argvl0][1]3; *cp3 cptt+) switch (*cp) { 


t ft. 


case ‘v3 
debug = 1; 
break} 


case 'd': 
debug = 13 
options |= SO DEBUG; 
break} 


case '1': 
logging = 1 
break; 


we 


case 't': 
timeout = xatoi(++cp)3 
goto nextopt; 
break$ 


default: 


xoprintf(xstderr, "Unknown flag -%c ignored.\n", 


break3 


ale 
w 
ale 
a“ 
ate 
aw 


*cp)3 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


nextopt: 
argce--, argvtt; 
} 
rval = xdopen("TI:",XFREAD|XFWRITE|XFASCII, FILE NAME); 
xdup2(rval,1)3 
xdup2(1,2)3 


xodopen(2,"w"'); 


getclient( SOCK STREAM, (struct sockproto *)0, 
&ctrl_ addr, options, xsmain)3 


} 


xsmain( s, from ) 


/* 
RSX specific ftp demon start up actions, calls generic code. 
Operating systems which require the user's id to be established 
before the process is started may provide two versions of this 
module, one where logged in is set to zero and one where it 
is set to l. 
Otherwise, this is where to determine if the user has been authenticated 
or not. 
x / 
int s3 
struct sckadr in *from; 
{ 

logged in = 03 

/* 

Until xprintf is available... 

g = (int) xiobls]. sys id; 

* / 

ftpdoit( s, from )3 
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1 char version[] = "Version 4.83 Wed Mar 27 11:34:00 PST 1985" 
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OoOnQD UH WNH 


/* 
¥ 
* 


/* 
* 
¥ 
* 
te 


#d 


dt 


convert floating point value to string 
return length of string converted 


/ 


remove the definition of EXTENDED if you want 
the exponent of E format to be 2 character places 
instead of 3 (e.g.) 1.0E45 instead of 1.0E045 


/ 
efine EXTENDED 


os(d,sbuff,prec,cc) 


double d35 


un 
sh 
un 


sh 
sh 
sh 
un 


di 
#d 
de 
#d 


signed char *sbuff3 
ort prec} 
Signed char cc} 


ort base} 

ort efmt3 

ort lens 

signed char *cp3 


fdef EXTENDED 
efine PAD 3 
lse 

efine PAD 2 


#endif 


} 


/* 
*/ 


static unsigned int pgitenl J={ 


base 
efmt 


dscale(&d,0)3 


floating point to convert */ 
buffer to store result */ 
no. fractional places */ 


_conversion code (e,f, or g) */ 


the number base */ 
true if E format required */ 
length of string */ 


number of digits in exponent */ 


C(cc=="'e')| | (Cec=='2' )&&(base>=5 | | base<=-5))| | (base>=20))3 


base += dscale(&d,efmt? prect2: prectbaset2)$ 


if (base>=20) efmt=1;3 


cp = sbuff + dtos(d,sbuff,efmt?1:base+l, prec); 


if(efmt ){ 
*cept+ = 'E'S 
if (base<0){*cpt++ = 
else *cpt+ = '+'s 


if((len = 1tos((long)base,cp,10))<PAD){ 


-'$ base= -base3} 


/* left pad */ 


movmem(cp,cp+PAD-Len, Len+1)3; 
setmem(cp,PAD-len,'0')3 


} 


else if(cc=='g'){ 
while(*--cp == '0' 


if(*cp == ta) *ep = 


return xstrlen(sbuff)3 


/* remove trailing zeroes */ 
/* remove '.' */ 


increased accuracy power of ten table 
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57 0x0000 ,0X0000 , 0x0000,0xX4024, /* lel */ 
58 0X0000 ,0X0000 ,0x0000 ,0x4059, /* le2 */ 
59 0X0000 , 0X0000 ,0X8800 ,0X40C3, /* led */ 
60 0X0000 ,0X0000 ,0XD784 ,0X4197, /* 1e8 */ 
61 0X8000 ,0X37E0,0XC379,0xX4341, /* 1e16 */ 
62 OX6E17 ,0XB505 ,0XB8B5 ,0X4693, /* 1e32 */ 
63 OXF9F6 , OXE93F ,0X4F03 ,0X4D38, /* 1e64 */ 
64 0X1D33 ,OXF930,0X7748,0X5A82, /* 1e128 */ 
65 OXBF3F ,OX7F73,0X4FDD,0X7515 /* 12256 */ 
66 33 

67 static double *pgten=pgiten;3 

68 

69 static unsigned int plitenl ]={ 

70 0X999A,0X9999 ,0X9999,0X3FB9, /* le-1 */ 
71 0X147B,0X47AE,0X7AE1 ,OX3F84, /* le-2 */ 
72 0X432D,0XEB1C,0X36E2,0X3F1A, /[* le-4 */ 
73 OX8C3A,0XE230,0X798E,0X3E45, /* le-8 */ 
74 OX89BC ,0X97D8 ,OXD2B2 ,0X3C9C, /* le-16 */ 
75 0XA732 ,OXD5A8 , OXF623 ,0X3949, /* le-32 */ 
76 OXA73C,0X44F4,0XOFFD,0X32A5, /* 1le-64 */ 
77 0X979A,0XCF8C,0XBA08 ,0X255B, /* le-128 */ 
78 OX6F40 , 0X64AC ,0X0628,0X0AC8 /* 1e-256 */ 
79° 33 

80 static double *plten=pliten;3 

81 

82 static double ZERO=0.0,ONE=1.0,TEN=10.0; 

83 

84 static dscale(valp, round) 

85 double *valp; /* value to scale */ 
86 int round; 

87 { 

88 int pow=0,sign,j,*ps,*pd3 

89 double val,roundval}3 

90 

91 if((val= *valp)<ZERO){ 

92 val= -val; 

93 sign=13 

94 } 

95 else sign=0; 

96 


97 if(val==ZERO || round<0)return 0; 
98 if (round) { 


99 if(round>16) round = 16; /* the real Limit should be 15 ? */ 
100 for( roundval=5.03 --round;) roundval *= 1.0e-13 
101 val += roundval3 
102 
103 if (val>=TEN) { 

104 for( j=93 j--3 ){ 

105 pow<<=13 

106 if(val>=pgten[ j]){ 
107 val *= plten[ j]; 
108 ++pow}$ 

109 } 

110 


111 } else if(val<ONE){ 
112 for(3=93 j--3 ){ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


pow<<=13 


if(val<pltenl[ j]){ 
val *= petenl[ j]; 


——pow} 


} 
if (val<ONE){ 
val*=TEN$ 
——pow; 
} 
} 
roundval=05 
pd= é&roundval; 
ps= &val$ 


pd[3]=(ps[3]&0x7££0)-(52<<4)3 


val+=roundval 3 


if(val>=TEN || val<ONE)powt= dscale(&val,0); 


*valp=sign?-valival; 
return pow; 


} 


static dtos(val,string,iplace,fplace) 


double val; 
unsigned char *string3 
int iplace; 
int fplace}3 
{ 
unsigned char *cp3 
int j3 


cp=string; 

if (val<ZERO) { 
val= -val3 
*cpt+ = ims 


} 

if (iplace<1){ 
*cptt+ ='Q's 
*eptt ='.'3 
fplacet=iplace;3 


/* the value to convert */ 


/* number of integer places */ 
/* the number of fractional places */ 


if(fplace<0){iplace-=fplace3fplace=03 } 


while(iplacet++<0)*cp++ ='0'3 


} else { 
do { 
j=vals 
ept+ =5+"0"s 
val=(val-j)*TEN3 
} while(--iplace); 


if(fplace)*cpt+ =". 


while(£place--){ 
j=val$ 
*cpt+ = jt'0's 
val=(val-j)*TEN}; 

} 

*cp=0 H 

return cp-string}3 


/* get the integer part */ 
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169 } 
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* @(#)fmtout.c 1.7 5/31/85 
* GENERIC LIBRARY 


* filename: FMTOUT.C 


WON KAU PLWH Ee 
4, 
* 


X / 
/* format data under control of a format string 
10 */ 
11 
12. /* to remove the floating point code, comment out 
13 the definition of FLOATS 
14 */ 
15 
16 /* 
17 #define FLOATS 
18 %/ 
19 
20 #include "xgenlib.h" 
21 
22 static int *Pp = (int *)03 “a 
23 
24 #ifndef zilog 
25 


26 xpinit(svec) 
27 int *svec3 


28 { 

29 Pp = svec}3 

30 +} 

31 

32 xpint() 

33 f{ 

34 return *Ppt+; 

35 } 

36 

37 long 

38 xplong() 

39 { 

40 #ifdef rsx 

41 register long *p3 
42 p= (Long *)Pp; 
43 Pp += sizeof ( long) / sizeof (Pp); 
44 return( (*p))3 

45 #else 

46 return *((long *)Pp)++; <f— 
47 #endif 

48 } 

49 


50 typedef char *p2c3 
51 typedef p2c *p2p2c;3 


53 char * 
54 xpptr() 
{ 


56 /* return *((p2p2c)Pp)++3 */ 


Jun 12 
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register p2p2c cpp = (p2p2c)Pp3 
register p2c cp = *cpp3 


cpptt; 
Pp = (int *)cpp3 
return (cp)$3 


} 


double 
xpdouble() 
{ 


#ifdef rsx 
register double *“p} 
p = (double *)Pp++3 


#else 
(double *)Pp++3 
#endif 
return (double)03 ce. 
} 
#else 


static Rent; 
static int *Rvec}3 
static int *Svec3 


xpinit(rvec, rent, svec) 
int *rvec3 
int *svec3 


{ 
Rent = rent} 
Pp = Rvec = rvec3 
Svec = svec; 
} 
xpint() 
int itmp3 
if (Rent == 6) 
Pp = Svec$ 
itmp = *Pp3 
Rentt+t$ 
Ppt+3 
return itmp}3 
} 
long 
xpswap(1lv) 
long lv; 
{ 
return lv<<16 | (lv>>16&0xFFFF)3 
} 
long 


xplong() 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 


{ 


} 


char * 
xpptr() 
{ 


3 


long 1ltmp3 


switch (Rent) { 


case 0: 


case 23 


case 13 


case 33 


case 4: 


case 53 


default: 


} 


Ltmp = xpswap(*(long 
Pp += 25 

Rent += 23 

breaks 


Ppt+3 

ltmp = xpswap(*(long 
Pp += 235 

Rent += 33 

break$ 


Pptt+ 3 

Ltmp = xpswap(*(long 
Pp = Svec$ 

Rent += 33 

break; 


ltmp = xpswap(*(Llong 
Pp = Svec;3 

Rent += 23 

breaks 


Pp = Svec$ 

ltmp = *(long *)Pp3 
Pp += 23 

Rent += 33 

break; 


if (Rent == 6) 


return ltmp3 


char *cptmp3 


if (Rent == 6) 


cptmp = 
Rent++3 
Ppt+3 


Pp = Svec$3 
Ltmp = *(long *)Pp3 
Pp += 23 
Rent += 23 
break} 
Pp = Svec3 


(char *)*Pp; 


return cptmp;3 


*)Pp)3 


*)Pp)3 


*)Pp)s 


*)Pp); 
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169 

170 double 

171 xpdouble() 

172 { 

173 return (double)03 
174 } 


176 #endif 


178 #ifndef zilog 

179 fmtout(func, funarg, string, ip) . 

180 #else 

181 fmtout(func, funarg, string, ip, regp, regent) 
182 int *regp$ 

183 #endif 

184 int (*func)()3 

185 char *funarg3 

186 char *“string3 

187 int *ip; 


189 char tbuff[128], *cp, cb3 
190 int base3 

191 int is number}; 

192 unsigned leftadj, padchar, width, precflg, precisn, longflg, length; 
193 union { 

194 long tlong; 

195 long tulong3 

196 } 

197 lw3 

198 #ifdef FLOATS 

199 double *dp3 

200 #endif 


202 #ifndef zilog 

203 xpinit(ip)3 

204 #else 

205 xpinit(regp, regent, ip); 
206 #endif 


208 while(*string) { 

209 if( *string !='%'){ 

210 for(cp=string$;*cp && *cp!='%'3) 

211 (*func)( (*cpt+) & Oxff, funarg); 
212 string=cp3 


214 else { 

215 is number = 1; 

216 if (leftadj=(*++string == '-')) 
217 ++string$ 

218 padchar= *string & Oxff; 

219 if (padchar=='0') 

220 ++string; 

221 else padchar=' '; 

222 if (*string == te) { : 

223 /* width is an argument */ 
224 width = xpint(); 
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225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 


#ifdef FLOATS 


#endif 


nosign?: 


} 


else 


++string$3 


for (width=0;isdigit(*string) 3) 
width=width*10+(*string++-'0')3 


if (precflg=(*string=='.')) { 


} 


++string$ 

if( *string == '*'){ 
/* precision is an argument */ 
precisn = xpint()3 
++string$ 


else 
for (precisn=0;isdigit(*string)3) 


precisn=precisn*10+(*string++-'0' 


else precisn=03 
if (longflg=(*string =='1')) 


++string$ 


switch (*string) { 


case 
case 
case 


case 
case 


case 
case 


case 
case 


case 
case 


case 
case 


if(!precflg)precisn=63 
dp= (double *)xpdouble()3; 


length=dtos(*dp++, cp=tbuff, precisn, “string & ( 


break; 


‘Bhs 
'b's 
base=235 
goto nosign3 
"o's 
"o's 
base=8 3 
goto nosign$ 
‘y's 
"a's 
base=103 
goto nosign}3 
"os 
y's 
base=163 
goto nosign3 
'p's 
es ae 
base= -103 


if (!longflg) 
Longflg=(*string>='A'&&*string<='Z')3 
if(longflg){ 
lw.tlong= xplong()3 
} 


else if (base<0)1lw.tlong=(long)xpint()3 
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281 else lw.tulong=(unsigned)(xpint())3 

282 ltos(lw.tlong, tbuff, base); 

283 if (precflg){ 

284 cp = tbuff; 

285 if (lw.tlong <0) ++cp; 

286 length= xstrlen(cp)3 

287 if (precisn && length < precisnt+l ) { 
288 movmem(cp, cptprecisnt+l-length, 
289 setmem(cp, precisnt+tl-length, '0' 
290 length = precisn +13 

291 } 

292 movmem( cptlength-precisn, cptlength-pre 
293 cpllength-precisn] = '.'; 

294 } 

295 length=xstrlen(cp=tbuf£ ) 3 

296 break} 

297 case 's': 

298 cp = xpptr(); 

299 length = xstrlen(cp)3 

300 if(precflg && precisn<length)length=precisn; 
301 /* leave minus signs alone */ 

302 is number=0; 

303 break} 

304 case ‘c's 

305 cb = xpint() & Ox7F3 

306 cp = &cb; 

307 length=1; 

308 is _number=03 

309 breaks 

310 default: 

311 cp=string}3 

312 length=13 

313 is number=03 

314 break$ 

315 

316 if (!leftadj && width>length) { 

317 if (is number & “cp == '-' && padchar == '0') { 
318 (*func)((*cpt+) & Oxff, funarg)s; 

319 --length3 

320 --width; 

321 } 

322 while (width-- >length) 

323 (*func)(padchar, funarg)3 

324 

325 if (width>length) 

326 width-=Length$ 

a2] else 

328 width=03 

329 while (length--) 

330 (*func)((*cp++) & Oxff, funarg)s; 

331 if (leftadj && width) 

332 while(width--) 

333 (*func)(padchar, funarg)3 

334 ++string$ 

335 } 


336 } 
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337} 
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* @(#)1ltos.c 1.6 6/4/85 
* GENERIC LIBRARY 


* filename: LTOS.C 


WOON DUH WN Ee 
+ 


xf 
#include "xgenlib.h" 
10 
11 /* 
12 * movmem —-> move memory 
13. */ 
14 
15 int movmem ( from, to, len) 
16 char *from, *to}3 
17 int len3 /* no of bytes to copy */ 
18 
19 while ( len-- ) 
20 *tot+ = *fromt+3 
21 } 
22 
23. /* 
24 ™* setmem: - set memory to a desired value 
25 / 
26 
27 int setmem( s, len, c) 
28 char *s3 /* start address of the memory */ 
29 int len; /* no of char to be set */ 
30 char c} /* character to be set */ 
31 
32 while ( len-- ) 
33 ott = C5 
34 } 
35 
36 
37. /* long to string 
38 x / 
39 
40 l1tos(val,cp,base) 
41 long val3 /* the number to convert */ 
42 char *cp3 /* the address of the string */ 
43 int base; . /* the conversion base */ 
44  { 
45 char tempc[34],*tcp3 
46 int n=0$3 /* number of characters in result */ 
47 long uval; /* unsigned value (not possible on all compilers) */ 
48 static char digl ]={"0123456789ABCDEF"}3 
49 
50 *(tcp=tempct+33)=03 
51 if (base<0) { /* needs signed conversion */ 
52 if(val<0)n=13 
53 else val= -vals 
54 do { 
55 register int num = -(valZbase)3 


56 *--tcp=dig[ num ]; 
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} while((val/= -base))3 


} else { 
uval=val35 
do { 
register long num = (uvalZbase); 
if( num < 0 ) num -= base} 


*--tcp=dig[num]3 
} while(uval/= base); 


if(n)*--tcp='"-"5 

n=((int)tempe + 33) ~— (int)tcp3 
movmem(tcp,cp,n+1)3 

return n$ 
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¥ format data to a memory string 


* this function behaves much like putc with only difference 
* is that it writes to an user buffer instead of a file. 

*/ 

static store(x, to) 

10 unsigned char x} 

11 unsigned char **to}3 


WO man AU Wh 


12 

13 *kto = xs 

14 (to )++3 /* point to the next location of the buffer */ 
15 et O=05 /* terminate for safety */ 

16 } 

17 


18 xsprintf(string,control,args) 
19 unsigned char *string3 

20 unsigned char *control;3 

21 unsigned args; 


22 { 
23 return _fmtout( store, &string,control ,&args)3 
24 } 
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1 /* 
2 %* GENERIC LIBRARY 
3 * 
4 ™* filename: STRETC.C 
5 «/ 
6 
7 #include <xctype.h> 
8 
9 
10 /* 
11 ™* XSTRLEN: return the size of the string 
12 */ 
13 
14 int xstrlen( s ) 
15 unsigned char *s3 
16 
17 unsigned char *p = s3 
18 
19 while ( *p != '\O' ) p++; 
20 return ( p-s )3 
21 } 
22 
23. /* 
24 * XSTRCPY: copy string 2 to string 1 
25 */ 
26 
27 xstrepy( s, t) 
28 unsigned char *s, *t}3 
29 { 
30 while ( *gt+ = *t++ )5 
ai 
32 
33. /* 
34 * XSTRNCPY: copy a string into a buffer n characters in length 
35 e/ 
36 
37 unsigned char *xstrncpy( s, t, n) 
38 unsigned char *s, *t3 
39 int n$ 
40 
4l unsigned char *cp3 
42 
43 for ( cp = s3 n && ( *cpt+ = *t++ )3 --n )3 
44 while ( n-- ) 
45 *ept+ = '\0'5 
46 return ( s )3 
47 } 
48 
49 
50 /* 
51 * XSTRCMP: compare strings and return -ve, 0 or +ve accordingly 
52. / 4 
53 
54 int xstremp( s, t) /* return <0 if s<t, 0 if s==t, >0 if s>t */ 
55 unsigned char *s, *t3 
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57 for ( 3 *s == *t3 s+, tt+ ) 
58 if ( *s == '\Q' 

59 return ( 0 )3 

60 return ( *s - *t )3 


63 /* 
64  * XSTRICMP: case insensitive string comparision 
65 / 


67 #define conv(x) ( isupper(x) ? tolower(x) : x ) 


69 int xstricmp( s, t) 
70 unsigned char *s, *t3 


72 for ( 3 conv(*s) == conv(*t)3 st+, tt++ ) 
73 if ( *s == '\o' ) 

74 return ( 0 )3 

75 return ( conv(*s) - conv(*t) )3 

76 } 


79 /* 
80 ™* XSTRNCMP: string compare up to n characters 
81 */ 


83 int xstrncmp( s, t, n) AW 
84 unsigned char *s, *t3 
85 int n$ 


87 for ( 3 n-- && ( *s == *t )3 ttt ) 
88 if ( I*s++ ) 

89 return ( 0 )3 

90 if (n<0O ) 

91 return (0 ); 

92 if ( *s3 < *t ) 

93 return ( -l )3 

94 return ( 1 )3 

95 } 


97 /* 
98 * XSTRCAT: concatenates string 2 to the end of string 1 
99 */ 


101 int xstrceat( s, t ) 
102 unsigned char *s, *t3 


104 while ( *gt++ != '\O' )3 
105 for ( --s3 (*s++ = *t++) f= '\O'3 )3 
106 } 7 


109 /* 
110 * XSTRNCAT: concatenate string 2 to string 1 , max n chars 
111 */ 
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113. unsigned char *xstrncat( s, t, n) 


114 unsigned char *s, *t3 

115 int n}3 

116 

117 unsigned char *cp} 

118 

119 for ( cp = s$ *cptt3 )$ 
120 for ( --cp3 n-~ && ( *cpt+ = *t++ )3 ) 3 
121 if (n<0O ) 

122 *cp = '\O'S 

123 return s3 

124 

125 

126 

127. /* 


128 * XSTRCHR: return @ pointer to first occurance of character 
129 */ 


130 

131 unsigned char *xstrchr( s, c) 
132 unsigned char *s, c$ 
133 

134 while ( *s ) 

135 if ( *st+ == c ) 
136 return -—s} 

137 return ( 0 )3 

138 } 

139 

140 /* 


141 * XSTRRCHR: return a pointer to the last occurance of char 
142 */ 


143 

144 unsigned char *xstrrchr( s, c) 

145 unsigned char *s, c$} 

146 

147 unsigned char *cp} 

148 

149 for ( cp = s + xstrlen(s)3 --cp >= s3 ) 
150 if ( *cp ==c ) 

151 return cp} 

152 return 03 


153 } 
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1 /* 

2 ZWZ Z£G4 

3 

4 Temporary entry points for some x routines. 
5 #/ 

6 #include <xstdio.h> 
7 extern int errno} 

8 

9 

10 

11 char *xatoi(a) 

12 char *a 3 
13 
14 

15 return( atoi( a ) )3 
16 

17 

18 char * 

19 xsprintf( ) 
20 { 
21 /* 
22 keep the linker happy at least. 
23. ¥/ 
24 


25 } 
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1 /* 

2 “WL %G% 

3 

4 Generic close. 

5 */ 

6 

7 #include <xstdio.h> 
8 #include <xerrno.h> 
9 #include <stdio.h> 
10 
11 extern int xnofunc();3 
12 
13 xclose( fd ) 
14 
15 int fd3 
16 { —e 


17 int rval3 
18 register XFILE *current} 


19 

20 if( fd >= 0 & fd < XNFILE ) 

21 { 

22 current = & xioblfd]; . 

23 if( !( current-> flag & XUsed )) 

24 { 

25 fprintf( stderr, "xclose: bad od\n" )3 

26 return ( XEBADF )3 

27 } 

28 /* 

29 file descriptor is OK, check for copies. 

30 */ 

31 if( (current-> flag & XIOWRT ) && (current->_bufsiz > current-> cnt) 
32 { 

330 /* 

34 Flush write buffer (if appropriate). 

35 */ 

36 fprintf( stderr, "xclose: flushing\n" ); 
37 xfflush( current )3 

38 } 

39 if( current-> base && 
40 (( current-> flag & XIOMYBUF == 0 ))) 

41 { 

42 ° /* 

43 free buffer allocated by system. 

ad x] 

45 fprintf( stderr, "xclose: freeing\n" ); 

46 xfree( current-> base )} ——e D 
47 } ae 
48 if( current-> pred ) 

49 

50 /* 

51 at least one copy exists 

52 & */ ’ 

53 Struct xiobuf *next = current->_succ}3 

54 struct xiobuf *previous = current-> pred}; 
55 int primary = current-> flag & XPrimary; 
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107 


xclose.c Page 2 


fprintf( stderr, "xclose: uncopying\n" )}3 


if( next == previous ) 
/* 
only one other copy 
%/ 


previous-> pred = (struct xiobuf 


previous-> succ 


} 


/* 
remove from Linked list 
%/ 
previous-> succ = next} 
next-> pred = previous; 


else 


if( primary ) 
{ 


/* 
Make new primary copy. 
%/ 
previous-> flag |= XPrimary; 
} 
trval = 03 
} 
else 
{ 
/* 
Only copy, perform real close 
%/ 
fprintf( stderr, "xclose: closinging\n" )3 
rval = (*(current->_close))( current-> sys 
} 
/* 
Cleanup xiob structure. 
X/ ~ 
current-> flag = 03 


current-> cnt = 0 
current-> ptr = ( 


’ 
char *)03 


current-> base = (char *)03 
current-> bufsiz = 03 
current-> succ = (struct xiobuf *)0; 


current-> pred 
current-> read 
current-> write 
current-> ioctl 
current-> close 


(struct xiobuf *)0; 
xnofunc}3 
xnofunc}3 
xnofunc}3 
xnofunc}3 


return( rval )3 


108 return( XEBADF );3 


109 } 


*)03 


(struct xiobuf *)0; 


_id )5 
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/* 
AWL %G% 


Copy an EXOS file object. 
%/ 


#include <xstdio.h> 
#include <xerrno.h> 


wmnmnA Uf hr 


10 xdup2( orig fd, new fd ) 


12 int orig fd; 
13 int new fd3 


14 { 

15 

16 if( ore Fa > 0 && orig fd < XNFILE && new fd > 0 && new fd < XNFILE 
17 

18 register struct xiobuf *new = & xiob[new fd]; 
19 register struct xiobuf *orig = & xioblorig fd]; 
20 

21 if( !(orig-> flag & XUsed) ) 

22 return( XEBADF ); 

23 if( orig fd == new fd ) 

24 return( 0 ); 

25 xclose( new fd )3 — ?? 

26 /* 

27 seperate buffering for new object, 
28 everything else identical. 

29 */ 

30 new-> flag = orig-> flag & 

31 ~( XPrimary | XIOMYBUF | XIOLBF | XIONBF)$; 
32 new-> cnt = 03 

33 new-> ptr = (char *)03 

34 new-> base = (char *)03 

35 new-> file = new fd3 

36 new-> sys id = orig->_sys id$ 

37 new-> close = orig-> close} 

38 new-> read = orig-> read} 

39 new-> ioctl = orig->_ioct1; 

40 new-> write = orig-> write; 

41 /* 

42 insert into Linked list of copies 
43 x / 

44 if ( l!orig-> succ ) 

45 

46 new-> succ = orig; 

47 new-> pred = orig; 

48 Orig-> succ = new}, 

49 Orig-> pred = new; 

50 

51 else 

52 

53 new-> succ = orig-> succ} 
54 new-> pred = orig; 

55 Orig-> succ = new; 


56 } 
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57 return( 0 )3 


59 return( XEBADF )3 
60 } 
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1 /* 

2 4WA 2~GK 

3 

4 Unix specific close all EXOS file objects and exit program. 
5 */ 

6 

7 #include <xstdio.h> 

8 

9 xexit( status ) 
10 
1l int status; 
12 
13° int i$ 
14 
15 for( i = 03 i < XNFILE 3; ++i ) 
16 
17 xclose( i )3 
18 


19 exit( status )}3 
20 } 
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/* 
AWh GK 


Operating system independent routine for flushing buffers 7 


Associated with pointers to io objects. 
*/ 

#include <xstdio.h> 

#include <xerrno.h> 


xfflush( file ) 


register XFILE *file;3 
—— 

int rval3 

int nmtowrite}3 

char *pt3 


if( !(f£ile-> flag & XUsed ) ) 
return( XEBADF )3 v 

if( !file-> base || !(file-> flag & XIOWRT ) ) 
return( XEBADF )3; » 

if( file-> flag & XIOLBF ) 


nmtowrite = (int)( file-> ptr - file-> base ); 


file-> cnt = 05 


} 
{ 


nmtowrite = file-> bufsiz - file-> cnt; 
file-> cnt = file-> bufsiz3 
} 

file-> ptr = file-> base; 

rval = 03 

pt = file-> base; 

while( nmtowrite > 0 ) 


else 


rval = xwrite( xfileno( file ), pt, nmtowrite 
if( rval <= 0 ) 
break$ 
nmtowrite -= rval3 
pt += rval;3 


return( rval )}3 


} 


)3 


memes cman 


"7 


«id | 
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1 /* 

2 @(#) xfilbuf.c 1.4 5/22/85 

3 

4 System independent routine for filling buffers associated with 
5 a pointer to an io object. (used to implement xgetc). 
6 */ 

7 #include "xgenlib.h" 

8 

9 xfilbuf( file ) 
10 
ll register XFILE *file3 
12 { 


13° int rval; 
14 char ch;3 


15 

16 if(€ !( file-> flag & XUsed ) ) 

17 return( XEOF );3 

18 if( !( file-> flag & XIOREAD ) ) 

19 return( XEOF ); 

20 if( file-> flag & XIOERR ) 

21 { 7 

22 /* 

23 * Allow user to retry after an error. 
24 */ 

25 file-> flag &= ~ XIOERR3 

26 ~ 7 

27 if ( file-> base ) 

28 { 

29 rval = xread( xfileno(file), file-> base, file-> bufsiz 
30 } 

31 else 

32 
33 rval = xread( xfileno(file), &ch, 1 )3 a 
a ee 

35 ,if( rval < 0 ) Se 

36 { \ 

37 file-> flag |= XIOERR; g 

38 CO return( XEOFy)3 eee 

39 ae aa pide 

40 else if ( rval ==0 ) 

41 { 

42 file-> flag |= XIOEOF; 

43 return( XEOF, ) 5 

44 } 

45 file-> cnt = rval - 1; 

46 if( file-> base ) 

47 { 

48 file-> ptr = &file-> base[1]; 

49 return( (file-> base[0]) & Oxff ); 

50 } 

51 else 

52 { 

53 return( ch & Oxff ); 

54 } 
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/* 
@(#) xflsbuf.c 1.6 5/22/85 


System independent routine for filling io buffers. 
( used to implement xputc ). 
ve / 


#include "xgenlib.h" 
_xflsbf( x, file ) 


unsigned int x3 
register XFILE *file; 
{ 


int rval3 

int nmtowrite3 
int storex}3 
char xch3 

char *pt3 


if( !(file-> flag & XUsed) ) 
return( XEBADF ); 
if( !(file-> flag & XIOWRT ) ) 
return( XEBADF )3 
if( file->_ flag & XIOERR ) 
{ 
/* 
* Allow user to retry after an error. 
ve / 
file-> flag &= ~ XIOERR; 


if( file-> base ) 
{ 


storex = l3 /* put x in buffer after flush * 


pt = file-> base} 

/* - 

Check for line buffering 

x / 

if( file-> flag & XIOLBF ) 


nmtowrite = (int)(file-> ptr - file-> base); 
if( nmtowrite >= file-> bufsiz ) 


/* 

flush buffer, because it is full. 
x / 

} 


else if( x == '\n' || x == '\r' ) 
flush buffer, because of end of line 
storex = 03 
*(file)-> ptrt+ = x; 
++nmtowrite$ 


else 
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57 

58 *(file)-> ptrt+ = x; 

59 file-> cnt = 03 

60 return( 0 );3 

61 } 

62 } 

63 else 

64 { 

65 nmtowrite = file-> bufsiz - ( file-> cnt + 1 )3 
66 } 

67 while ( nmtowrite > 0 ) 

68 

69 rval = xwrite( xfileno(file), pt, nmtowrite ); 
70 if( rval < 0 ) 

71 { 

72 file-> flag |= XIOERR; 

73 return( rval )3 

74 } 

75 if( rval == 0 ) 

76 { 

77 file-> flag |= XIOERR; 

78 return( XEIO )3 

79 } 

80 nmtowrite -= rval3 /* Assert: rval <= nmtowrite */ 
81 pt += rval; 

82 

83 if( file-> flag & XIOLBF ) 

84 

85 if( storex & ( x == '\n' || x == '\r' ) ) 

86 

87 /* 

88 write out carriage return 

89 %/ 

90 xch = x3 

91 rval = xwrite( xfileno(file), &xch, 1 )3 
92 storex = 03 

93 if( rval <0 ) 

94 return( rval )3 

95 } 

96 file-> cnt = 03 

97 } 

98 else 

99 file-> cnt = file-> bufsiz - 15 /* cnt == #chars remaining, 
100 -1 for "x" */ 
101 if ( file-> cnt <0 ) 

102 { 

103 /* 

104 This should not happen. 

105 */ 

106 return( XEFAULT )3 

107 

108 file-> ptr = file-> base; 

109 if( storex ) 

110 *file-> ptrt++ = x3 

lll } 


112 else 
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113 { 

114 xch = x$ 

115 rval = xwrite( xfileno(file), &xch, 1 )3 
116 if( rval < 0 ) 

117 { 

118 file-> flag |= XIOERR; 
119 return( rval )3 

120 } 

121 if( rval != 1 ) 

122 

123 file-> flag |= _XIOERR; 
124 return( XEIO )3 

125 

126 file-> cnt = 03 

127 


128 return( 0 );3 
129 } 
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/* 
* @(#)xfprintf.c 1.6 5/31/85 


Xfprintf(3X). 
ve / 
#include "xgenlib.h" 


static int xputc( c, op) 
char c}3 
XFILE *op3 


xputc( c & Oxff, op); 


#ifndef zilog 


xoprintf(op,control,args) 

XFILE *op3 

char *control} /* the format control string */ 
unsigned args} 


return fmtout( xputc,op,control,éargs)3 


} 


xprintf£( control, args ) 
char *“control1}3 
unsigned args$ 


{ 


return fmtout( xputc, xstdout, control, &args ); 


} 
#else 


xoprintf(op, control, al, a2, a3, a4, args) 

XFILE “op; 

char *control3 /* the format control string */ 
int al, a2, a3, a4; 

unsigned args$ 


int sl=al, s2=a2, s3=a3, s4=a4; 


return fmtout( xputc, op, control, &args, &s1l, 2); 


} 


xprintf(control, al, a2, a3, a4, a5, args) 
char *control}3 

int al, a2, a3, a4, a53 

unsigned args} 

{ 


int sl=al, s2=a2, s3=a3, s4=a4, s5=a5; 


return fmtout( xputc, xstdout, control, &args, &sl, 


1) 
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57 #endif 
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/* 
AWL %GK 


Print password prompt, turn off echoing, and get password, restore 
Using the facilities of xoslib. 


Caveat: This assumes xstdin and xstdout == user's terminal. 
*/ 


#include <xstdio.h> 


#define MXPWORD 25 


char * 
xgetpass( prompt ) 


char *prompt$ 


static char buf[ MXPWORD ]; 
register char *pt = &buf[0]; 
register int rval}3 

register int i = 03 


/* 
Should use xprintf, but not available now... 
x / 
while( *prompt != '\O' ) 
{ 


xputchar( *prompt++ )3; 


xfflush( xstdout ); 
xraw term( xnofunc )3 & 


do {_ 
rval = xread( 0, pt, 1 )3 
if( rval <0 ) 
xperror( rval, "xgetpass" )3 
} while ( *pt != '\r' && *pt != '\n' && 
rval == 1 && ++i < MXPWORD && ++pt )3 
*pt = '\0'S 


xrestore term(); 
return( &buf[0] ); 
} 


terminal, 
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/* 
@(#)xgets.c 1.4 5/22/85 


Xgets(3X). 


#include '"xgenlib.h" 


char * 
xgets( string ) 


WON DU WDE 


ll char *string; 

12 { 

13. int ¢$3 

14 char *p = string; 


16 while ( (c = xgetchar()) != XEOF && c != '\n' ) 
17 { 
18 *ptt = C5 


20 *p = '\o'; 

21 if(€ c == XEOF ) 

22 return( XNULL )3 
23 return( string );3 

24 3} 
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1 /* 

2 4WZ 46% 

3 

4 Generic io control. 
5 */ 

6 

7 #include <xstdio.h> 
8 #include <xerrno.h> 
9 
10 xioctl( fd, cmd, param ) 
11 
12 int fd3 


13° int cmd$3 
14 char “param; 


16 int rval3 
17 register XFILE *file;3 


18 

19 if( fd > 0 && fd < XNFILE ) 

20 

21 file = & xioblfd]; 

22 if( !( file-> flag & XUsed )) 

23 return ( XEBADF )3 

24 /* 

25 file descriptor is OK. 

26 %/ _?P 
27 rval = (*(file-> ioctl))( file->_sys_ id, cmd, param )3 
28 return( rval )3 

29 


30 return( XEBADF )3 
31 } 
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; 1, | [85 


AWh GK 


Xmkarglist from xglob(3X) for Unix. 

This file belongs in Xoslib, but is here to keep the Linker happy. 
#define ARGPOINTERSP /00 /* bytes for storing argument pointers */ 
#define ARGSPACE (400 /* bytes for storing arguments */ 


WON DU WDE 


10 static char *“argbase;3 
ll static char *stringbase; 


12 saat ria 

13 /extern char *xmallo ()3 } a EC | 

i cases ak Ee Hee C luck a ae eee S 
15 char ** a 


16 xmkarglist( line, count ) 


17 

18 char *line}3 /* IN */ 
19 int *count; /* OUT */ 
20 { 


21 char **argp}3 

22 char *slurpstring()3 
23. char “argvsp$3 

24 int marge} 


25 

26 marge = 05 

27. /* 

28 Allocate space for argv and tokens in line 

29 */ 

30 if( xstrlen( line ) > ARGSPACE ) 

31 

32 return( (char **)0 )5 

33 } 

34 argvsp = xmalloc( ARGPOINTERSP + ARGSPACE )3 

35 if ( argvsp E= (char *)=-1)) < Ctuv po y 

3 6 { ans bas sntad Secor tla eb Ue ! 

37 return( (char **)0 )3 

38 } 

39 argbase = &argvsp[ARGPOINTERSP ]; /* store from first of buffer */ 
40 stringbase = line; /* scan from first of buffer */ 


41 argp = (char **)argvsp3 

42 while (*argpt+ = slurpstring()) 
43 margcett; 

44 *count = margc$ 

45  return( (char **)argvsp )3 


4g /* 

49 * Parse string into argbuf$ 
50 * implemented with FSM to 

51 * handle quoting and strings 


52 */ 

53. char * 

54 slurpstring() 
55 


56 int got one = 03 
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register char “sb = stringbase}3 
register char “ap = argbase}3 


char *tmp = 


eee 
Used to d 


argbase; 


x / 
switch (*sb) { 


case '\O': 
goto OUT; 
case ' '3 
case '\t': 
sb++ 3 goto SO; 


default: 
goto $1; 
} 


switch (*sb) { 


case ' '3 
case '\t's: 
case '\0O'?: 
goto OUT; 


case '\\': 
sbt+t+3 goto 82; 


case 
sb++$ goto $33 
default: 
*apt+ = *sbt+5 
got_one = 1; 
goto S135 
} 


switch (*sb) { 


case '\O': | 
goto OUT; 


default: 
*apt+ = *sbtt3 
got_one = l; 
goto S135 


switch (*sb) { 


/* 


/* will return this if token found */ 


eee ee a pene rneere 
Ignore By iftearce of '!' 


end of token */ 
slurp next character */ —’ 


slurp quoted string */ 


add character to token */ 
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OUT: 


} 
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case '\O': 


goto OUT; 
case '"'s 
sb++5 goto $1} 
default: 
*¥apt+ = *sbt+3 
got one = 1; 
goto $3; 
} 


if (got_one) 

*apt+ = '\0'S 
argbase = ap} [* 
stringbase = sb} /* 
if (got _one) 

return(tmp)3 
return((char *)0)3 


xdealglob( pt ) 


/[* 


Free space 


%/ 


char **pt3 


{ 


xfree( (char *)pt )3 


} 


update storage pointer */ 
update scan pointer */ 


allocated by either xglob or xmkarglist 
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wowMmn~s AUP WN 


/* 
“Wh “%Gh 


Unix routine to form path names relative to the user's home directory, 
current directory, etc. 


This routine belongs in Xoslib, but is here 


xe / 


#include <xspecial.h> 
#include <xerrno.h> 


/* 
for now 


¥e / 


#define xsprintf sprintf 


#include <pwd.h> 


xmodname( name, special, buf, sz buf ) 


char **name3 
int special; 
char “buf 3 

int sz buf3 


{ 

int rval3 

char *pt = buf;3 
switch( special ) { 


case FILE NAME: 
pt = *name3 
break$ 
case CURRENT DIR: 
buf [0] 
buf[1] 
break} 
case UP DIRECTORY: 
buf[0] = '.' 
buf[1] = '.' 
buf [3] = '\O'$; 
case HM RELATIVE: 
case HOME DIR: 
{ 
struct passwd *pwent 3 
extern struct passwd *getpwuid()3 
int uid; 


t te. 
e 9 


'NO's 


uid = getuid(); 

pwent = getpwuid( uid ); 

if( pwent == (struct passwd *)0 ) 
return( XEPERM )$3 

if ( special == HM RELATIVE ) 
{ 


/* 


nor 7 


to keep the linker happy. 


we ho RS & 


Check for enough room in buffer, 
concatenate home directory and *name. 
%/ 


if( (2 + xstrlen( pwent->pw dir ) + xstrlen( 


*name )) 
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57 > sz buf ) 

58 return( XE2BIC ); 

59 xsprintf£( buf, "%s/Z%Zs", pwent->pw dir, *name 
60 } 

61 else 

62 { 

63 /* 

64 Use home directory. 

65 ye / 

66 pt = pwent->pw dir} 


68 } 

69 break} 

70 case CD RELATIVE: 

71 /* 

72 Check for enough room in buffer, 
73 prepend "./" to *name. 

74 */ 

75 if( (3 + xstrlen( *name )) > sz buf ) 
76 return( XE2BIC )3 

77 xsprintf( buf, "./%s", *name )3 
78 break; 

79 default: 

80 return( XEINVAL )3 
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/* 
AW %G% 


Given an index to an open io object, 

Associate a buffer with it and return a pointer. 
*/ 

#include <xstdio.h> 

#include <stdio.h> 


extern char *xmalloc()3 


XFILE *xodopen( od, direction ) 


int od3 /* object descriptor */ 
char *direction}3 /* "re" for read, "w'' for write */ 
{ 


XFILE *file;. 
char *rval;3 


if( od < 0 || od >= XNFILE ) 


fprintf( stderr, "bad od\n" ); 
return( (XFILE *)XNULL ); 


file = & xioblod]; 
[* * 
Make sure object has been opened, and in the right direction. 
Xf 
if( !(file-> flag & XUsed) ) 
{ 


fprintf( stderr, "not used\n" ); 
return( (XFILE *)XNULL ); 


switch ( direction[0O] ) { @) 
case 'r's we 


x 


v 
* if( file-> flag & XIOREAD ) 


file-> flag &= ~ XIOWRT}3 


break; fp 
if( file-> flag & XIORW) « 

file-> flag &= ~_XIOWRT}; 

file-> flag |= XIOREAD; 


break; 


w€printf( stderr, "not readable\n" ); 
return( (XFILE *)XNULL )3 wv 


case 'w's 
if( file-> flag & XIOWRT ) 
{ 
file-> flag &= ~ XIOREAD; 
break} 


if( file-> flag & XIORW ) 
{ 
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57 file-> flag &= ~ XIOREAD; 

58 file-> flag |= XIOWRT; 

59 break; 

60 

61 fprintf( stderr, "not writeable\n" ); 

62 return( (XFILE *)XNULL )3 

63 default: 

64 fprintf( stderr, "not an option\n" ); 

65 return( (XFILE *)XNULL )3 

66 } poi te ed eee 

67 [eval = xmalloc( XBUFSIZ )s/ [[a=o2. | 
68 ‘if( rval == (char *)-1 ) 

69 { 

70 fprintf( stderr, "no memory\n" )3 

71 return( (XFILE *)XNULL )3 

72 

73 xsetbuf( file, rval, XBUFSIZ ); 

74 file-> flag &= ~_XIOMYBUF; /* for automatic deallocation */ 


75 return( file )3 
76 } 
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1 /* 

2 “WZ 4~GZ 

3 

4 Xogets(3X). 

5 */ 

6 +#include <xstdio.h> 
7 

8 char * 

9 xogets( string, n, stream ) 
10 

11 char *string; 

12 int nj} 

13 XFILE “stream; 

14 { 

15 int c} 

16 char *p = string; 
17 

18 while ( (c = xgetc(stream)) != XEOF && c != '\n' && --n > 0 ) 
19 
20 ept+ = C3 
21 


} 
22 *p = '\O'S 
23 return( string )3 


24 } 5 RESO 
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WOOnNA UP WDHN 


ale 
a“ 


@(#)xperror.c 1.4 6/4/85 


Xperror(3X) and xrerror. 
%/ 
#include "xgenlib.h" 


#define MINEXERR 0 


char *x errlist[] = { 

"No Error ", 

Not super-user ", 

No such file or directory ", 
No such process ", 
interrupted system call ", 
1/O error ", 

No such device or address ", 
Arg list too long ", 

Exec format error ", 

Bad file number ", 
"No children ", 

No more processes ", 
Not enough core ", 
Permission denied ", 

" Bad address ", 

Block device required ", 
Mount device busy ", 
File exists ", 
Cross-device link ", 
No such device ", 

Not a directory ", 

Is a directory ", 
Invalid argument 

File table overflow ", 
Too many open files ", 
Not a typewriter " 

Text file busy ", 

File too large ", 

No space left on device ", 
" Tllegal seek ", 

Read only file system", 

Too many links ", 

Broken pipe ", 

Argument too large ", 
Result too large ", 

Operation would block", 
Operation now in progress", 
Operation already in progress", 
Socket operation on non-socket", 
Destination address required", 
Message too Long", 

Protocol wrong type for socket", 
Protocol not available", 
Protocol not supported", 

Socket type not supported", 


Operation not supported on socket", 


tt 
? 


Jun 12 20:48 1985 xperror.c Page 2 


57 " Protocol family not supported", 

58 " Address family not supported by protocol family", 
59 " Address already in use", 

60 " Can't assign requested address", 

61 " Network is down", 

62 " Network is unreachable", 


63 " Network dropped connection on reset", 
64 " Software caused connection abort", 
65 '" Connection reset by peer", 

66 " No buffer space available", 

67 " Socket is already connected", 

68 '" Socket is not connected", 

69 " Can't send after socket shutdown", 
70 " Too many references: can't splice", 
71 “™ Connection timed out", 

72 " Connection refused", 

73. " Too many levels of symbolic links", 
74 '" File name too long", 

75 " Host is down", 

76 "“ No route to host", 

77 35 

78 


79 static char bad err[] = "UNKNOWN ERROR"; 
80 char *xrerror()}3 


ale 


81 extern char *xsyserr()3 


82 

83 +#define MAXEXERR 65 

84 

85 xperror( eval, rname ) 
86 


87 int eval; 

88 char *rname;3 
89 { 

90 int len3 

91 int olderrno; 
92 char *estring; 


94 olderrno = -eval3 
95 len = xstrlen( rname )3 
96 if ( len>O ) 


97 

98 if (xwrite( 2, rname, len ) != len ) 
99 return$ 

100 if (xwrite( 2, ":", 1) !=1 ) 

101 return$ 

102 } 


103 estring = xrerror( eval )}3 
104 len = xstrlen( estring )3 
105 xwrite( 2, estring , len ) 
106 xwrite( 2, "\n", 1 )3 

} ; 


110 char * 
111 xrerror( eval ) 
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113° int evals 


114 f{ 

115 int olderrno; 

116 

117 olderrno = -eval$3 

118 if ( eval <= XSYSERR ) 

119 { 

120 return( xsyserr() )3 
121 


122 else if( olderrno < MINEXERR || olderrno > MAXEXERR ) 
123 


124 /* 

125 bad error number 
126 ¥/ 

127 return( bad err )}3 
128 


129 return( x errlistl olderrno - MINEXERR |] 3 
130 } 
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/* 


AWL “GK 


Generic read. 


ve / 


#include <xstdio.h> 
#include <xerrno.h> 


xread( fd, buf, len ) 


int fd3 


char *“buf} 


int len} 


int count; 
register XFILE *file; 


if( fd >= 0 && fd < XNFILE ) 


> 


file = & xioblfd]; 
if( !( file-> flag & ( XIOREAD | XIORW )) || 
!( file-> flag & XUsed ) 


) 
return ( XEBADF )3 
/* 
file descriptor is OK. ie 
*/ es 


count = (*(file-> read))( file->_sys id, buf, len ); 


return( XEBADF );3 


return( count J3 
S 
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/* 
@(#)xsetbuf.c 1.4 5/29/85 


System independent routine for setting buffer associated with 
pointers to file objects 

* / 

#include "xgenlib.h" 


WOoOnNA UH WD 


xsetbuf( file, flag, len ) 


11 XFILE *file; | 
12 char *flag3 
13. int len; 


14 { 

15 

16 if € !(file-> flag & XUsed )) 

17 return( XEBADF ); 

18 /* 

19 flush old buffer, if appropriate 

20 */ 

21 xfflush( file )3 

22 |[* 
23 release old buffer, if appropriate. 

24 */ | 
25 if ( £ile-> base && !(file-> flag & _XIOMYBUF) ) 
26 
27 xfree( file-> base ); 

28 } 

29 if ( !flag ) 
30 { | 
31 /* 3 
32 User specified no buffering 
33 */ 
34 file-> flag &= ~(_XIOMYBUF' ); 
35 file-> flag |= XIONBF; 

36 file-> base = (char *)0; 

37 file-> cnt = 03 

38 } 

39 else 

40 { 

41 [%* 

42 User supplied buffer. 

43 */ 

44 file-> bufsiz = len; 

45 file-> flag |= XIOMYBUF; 

46 file-> base = flag; 

47 /* 

48 Assert: !( (file-> flag & XIOREAD) && (file-> flag & XIOWRT)) 
49 */ 

50 file-> cnt = (file-> flag & ( XIOLBF | XIOREAD))? 0 : len ; 
51 file-> ptr = file-> base} 

52 


53 return( 0 )3 
54 } 
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* 
5 . @(#)xsprintf.c 1.3 5/31/85 
; * Xsprintf(3X). | 
5 i format data to a memory string 
: Feciaie "xgenlib.h" 
5 


10 * this function behaves much like putc with only difference 
ll ™* is that it writes to an user buffer instead of a file. 

12. ¥/ 

13. static store(x, to) 

14 char x} 

15 char **to3 


16 { 

17 *etO = x§ 

18 (*to)++3 /* point to the next location of the buffer */ 
19 *to=03 /* terminate for safety */ 

20 

21 

22 #ifndef zilog 

23 

24 char * 


25 xsprintf(string,control,args) 
26 char *string$3 
27 char *control3 
28 unsigned args} 


30 return (char *) fmtout(_ store, &string,control ,&args)3 
31 } 


33 #else 


35 char * 

36 xsprintf(string, control, al, a2, a3, a4, args) 
37 char *string; 

38 char *control$ 

39 int al, a2, a3, a43 

40 unsigned args; 

41 { 

42 int sl=al, s2=a2, s3=a3, s4=a4; 


44 return (char *) fmtout( store, &string, control, &args, &sl, 2); 
45} 


47 +#endif 
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/* 
“Wh 2GS 


Generic write. 


i | 


#include <xstdio.h> 
#include <xerrno.h> 


xwrite( fd, buf, len ) 


int fd3 


char *buf3 


int len; 


int count$3 
register XFILE *file; 


if( fd > 0 && fd < XNFILE ) 


file = & xioblfd]; 
if( !( file-> flag & ( XIOWRT | XIORW )) || 
!( file-> flag & XUsed ) 


) 
return ( XEBADF )3 
/* 
file descriptor is OK. 
*/ 


count = (*(file-> write))( file-> sys id, buf, 
return( count )$3 


} 


return( XEBADF )3 


} 


len )3 


